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PREFACE 


Because BASIC-PLUS-2 has been implemented on more than one system, this manual describes only the language 
elements and statement syntax of BASIC-PLUS-2. It does not discuss system-specific information. In order to use 
BASIC-PLUS-2 on your particular system, you must also read one of the following: 


RSX/IAS BASIC-PLUS-2 User’s Guide 
RSTS/E BASIC-PLUS-2 User’s Guide 
DECSYSTEM-20 BASIC-PL US-2 User’s Guide 


This document is not a tutorial manual. If you are unfamiliar with the BASIC language, you should also read 
Digital’s Introduction to BASIC. 


In the following manual (BASIC-PL US-2 Language Manual) Chapters 1 through 5 describe the essential parts of a 
BASIC-PLUS-2 program. Almost any problem can be solved with the statements and features in these chapters. 
Chapters 6 through 11 provide the advanced features of BASIC-PLUS-2, which allow the BASIC language to be a 
useful tool for the more experienced programmer. For a quick reference to the BASIC-PLUS-2 language elements, 
refer to Appendix A. 


Throughout the manual, BASIC-PLUS-2 and BASIC are used interchangeably. The User’s Guide referred to is the 
BASIC-PLUS-2 User’s Guide for your system. 


Conventions Used in This Manual 
Symbol Represents 


The CTRL key and another key pressed simultaneously (i.e., CTRL/C). 


‘o) 
J 
| 
~ 


RE The RETURN key (carriage-return/line feed). 
TAB The TAB key (CTRL/I on some terminals). 
The SPACE bar. 
([ ] Special brackets indicating optional information that can be omitted from a 


command string. 


{ } Braces indicating a choice. Choose one from the enclosed. 

Lower-case letters Lower-case characters in a command string indicate variable information to be 
supplied by you. 

UPPER-CASE LETTERS Upper-case characters in a command string indicate fixed (literal) information that 
you must enter as shown. 

Examples On the DECSYSTEM-20, when you list a BASIC-PLUS-2 program (or line in a 
program) from storage leading zeroes are added to the line numbers (e.g., 10 
becomes 00010). 


All examples were produced on the DECSYSTEM-20. Most of them were stored, 
recalled, and printed. Therefore, the line numbers in these examples contain 
leading zeroes. 


Conventions Used in This Manual (Cont.) 


Symbol Represents 
Red — Where examples contain both user input and computer output, the 


Contrasting Colors 
characters you type are in red; the characters the computer prints are in black. 


Gray. — The text shaded in gray indicates the features available only on the 
DECSYSTEM-20. 


CHAPTER 1 
PROGRAMMING IN BASIC 


1.1 INTRODUCTION 

BASIC (Beginner’s All-purpose Symbolic Instruction Code) is a computer language developed at Dartmouth College 
under the direction of Professors John G. Kemeny and Thomas E. Kurtz. It is one of several programming languages 
used to translate symbolic language programs into machine language. Because the BASIC language is composed of 
easily understood statements and commands, it is one of the simplest programming languages to learn. 


BASIC provides an interactive human/machine relationship by allowing you to communicate directly with the lan- 
guage processor. It is a conversational programming language that uses simple English-like statements and familiar 
math notations to perform operations. 


The BASIC-PLUS-2 language is an outgrowth of Dartmouth BASIC. It encompasses both the elementary statements 
used to write simple programs and many new and advanced features. These new features, not found in standard 
Dartmouth BASIC, allow you to produce more complex and efficient programs. 


Some of the special features of BASIC-PLUS-2 are: 


Virtual Arrays — Section 9.3 

Record File I/O — Section 10.1 
Extensive String Support — Sections 2.2.3 and 2.3.3 
Full Matrix Package — Section 8.1 

Long Variable Names — Section 2.3 
IF... THEN... ELSE — Section 5.1.3 
ON ERROR — Section 5.6 

Statement Modifiers — Section 6.1 
User-Defined Functions — Section 7.6.2 
Multi-Statement Lines — Section 1.3.1 
Multi-Line Statements — Section 1.3.1 


1.2 STRUCTURE OF A BASIC PROGRAM 

A BASIC program consists of a set of statements constructed with the language elements and syntax described in the 
following chapters. Expressions, line numbers, and statements are joined to solve a particular problem, with each 
line containing instructions to BASIC. 


1.2.1 Character Set 
BASIC-PLUS-2 uses the full ASCII (American Standard Code for Information Interchange) character set for its 
alphabet. This set includes: 


1. Letters A through Z 
2. Numbers 0 through 9 
3. Special characters (see the ASCII Table in Appendix B) 


This character set enables you to include any ASCII character as part of a program. BASIC translates the characters 


that you type into machine language; some characters are processed and some are ignored. When BASIC does ignore 
an ASCII character, it prints a warning message to that effect. (Refer to the User’s Guide for diagnostic messages.) 
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BASIC translates characters in the following manner: 


1. Letters A through Z — BASIC treats the same alphabetic in upper-case and lower-case as the same char- 
acter, e.g., lis the same as i. 

2. Non-printing characters (e.g., BEL) — BASIC interprets the code during input, prints a warning message, 
then ignores them during execution. 

3. NUL characters — BASIC interprets the code during input, prints a warning message, and ignores them 
during execution. 


String constants are a different matter (as described in Section 2.2.3). Everything you type into a string constant is 
interpreted literally by BASIC. Consequently, in a string constant: 


1. All lower-case alphabetics (a, b, c) remain lower-case. 

2. All non-printing characters are processed. 

3. All null characters are processed. 
BASIC also ignores all characters in a REMARK during execution. See Section 1.4. 
System editing characters affect terminal output format only. Therefore, you need not be concerned, at this point, 
with the way BASIC handles them. System editing characters, such as Control/U (“U) are described fully in the 


User’s Guide for your system. 


1.2.2 Line Format 
The format of a program line is as follows: 


line number keyword statement line terminator 
00010 PRINT R= SQRC(X™2 + Y™2) RET 
Most lines in a BASIC program must begin with a number. (Continuation lines are another matter. See Section 
1.3.1.) This number must be a positive integer within the range of 1 to a limit set by your system. Refer to the 
User’s Guide for this information. A BASIC line number is a label that distinguishes one line from another within 


a program. Consequently, each line number in the program must be unique. 


Leading zeroes (as well as leading and trailing spaces) have no effect on the number. However, you cannot have 
embedded spaces within a line number. For example, these numbers are the same to BASIC: 


00010 
10 


But this number is illegal: 
O19 


BASIC ignores leading and trailing blanks, spaces, and tabs within a line (unless in a string enclosed by quotation 
marks). Therefore, you need not worry about leading and trailing blanks when typing in a program. For example: 


10 LET A=BtC 
can also be typed: 
10 LET A=K+C 


Both lines are the same to BASIC. 
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However, embedded spaces in line numbers, keywords (Section 1.3), or variable names are illegal. For example, 
BASIC rejects the previous statement if you type it as follows: 


1 9O ay a i A == eG 
1.3 STATEMENTS 
BASIC statements consist of English-like words called keywords (words recognized by BASIC) that you use in con- 
junction with the elements of the language set: constants, variables, and operators. These statements divide into 


two major groups: executable statements and non-executable statements. 


At least one space or tab must follow all statement keywords in order for BASIC to recognize the keyword as such. 
For example: 


This is acceptable 10 FRINT A 
This is not 10 FRINTA 


Certain keywords consist of two or more English words. Some keywords allow an optional space between words 
and some keywords require a space between words. Table 1-1 lists these keywords. 


Table 1-1 Keywords and Spaces 


Optional Space Mandatory Space 


GO TO MAT INPUT FNEND 


GO SUB MAT PRINT ~ SUBEND 
ON ERROR MAT READ 
INPUT LINE 





Statement keywords are reserved, and therefore, cannot be used as variable names (see Section 2.3). Appendix C 
contains a complete list of reserved keywords. 


1.3.1 Single Statement, Multi-Statement, and Continuation Lines 
You have the option, with BASIC-PLUS-2, of typing either one statement on one line, several statements on one 
line, or one or more statements on several lines. 


A single statement line consists of: 


A line number (from 1 to a system maximum) 
A statement keyword 

The body of the statement 

A line terminator 


fwWNe 


This is a single statement line: 
1O LET A=BxC 


- To enter more than one statement on a single line (multi-statement line), separate each complete statement with a 
backslash (\). The backslash symbol is the statement separator (or terminator). You must type it after every state- 
ment except the last in a multi-statement line. For example, the following line contains three complete PRINT 
statements: 


190 FRINT AyNSFRINT VeyNPRINT G 


1-3 


Programming in BASIC 


The line number labels the first statement in a line. Consequently, you should take this into consideration if you 
plan to transfer control to a particular statement within a program. For instance, in the previous example, you 
cannot execute just the statement 


FRINT Vy» 
without executing PRINT A; and PRINT G. 


Most statements can appear in a multi-statement line. The exceptions are noted in the discussion of individual state- 
ments in this manual. 


The rules for structuring a multi-statement line are: 


1. Only the first statement in a series can have a line number. 
2. Successive statements must be separated with a backslash (\). 


BASIC also provides a continuation character, an ampersand (&), in case the length of the statement or multi- 
statement line exceeds the line. 


If you are at the end of a line, and you want to continue it, type an ampersand (&) and then a line terminator. The 
next character you type prints in column one of the following line. The continuation line cannot have a line num- 


ber. You reference the entire line by the original line number. 


BASIC looks at the character immediately preceding the line terminator. If this character is an ampersand, BASIC 
continues executing the line as if all information were on the same line. 


Consider the following example: 


60 PRINT ’ABC’s» 2 & 
g4y 3XK2P2.9 


You can continue any statement including an IMAGE statement (see Section 4.5). However, you cannot continue a 
comment field (see Section 1.4). 


1.4 DOCUMENTING PROCEDURES — THE REM STATEMENT AND THE COMMENT 
BASIC allows you to document your methods, insert notes and comments, or leave yourself messages in the source 
program. This type of documentation is known as a remark or comment. There are two ways of inserting com- 


ments within a BASIC source program: 


1. With the REM statement 
2. With the comment field (!) 


The REM statement has the following format: 
REM comment 

where: 
comment is anything you want to write. 


You may place a REM statement anywhere in your program because it does not affect program execution. 
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The REM statement can be the only statement on the line 
19 REM THIS IS AN EXAMPLE 
or it can be one of several statements in a multi-statement line. 


BASIC ignores anything in a line following the keyword REM including a backslash (\). The only character that ends 
a REM statement is a line terminator. Therefore, a REM statement should be the only statement on the line or the 
last statement in a multi-statement line. 


eO LET A=S\REM THE VALUE OF A ITS &S 


You can use the line number of a REM statement in a reference from another statement, i.e., GOTO; however, in 
this case, BASIC ignores the REM statement and proceeds to execute the next non-REM statement following the 
line referenced. For example: 
LISNH 
Q0019 REM SGN FUNCTION EXAMFLE 
00020 READ Avy Bs C 
QOO030 FRINT "SGNCAI=") SGNCAD»y "SONCRI="35GNCK) » "SGNCC)="SSGNCO) 
00040 GOTO 10 
O0030 TATA 7.49.27 90 
00060 ENT 


Line 40 sends BASIC back to line 10. (See Section 5.1.1 for the GOTO statement.) BASIC ignores the comment on 
line 10 and continues execution at line 20. 


Remember that BASIC prints the remakrs on the terminal only when you list the source program. (See the User’s 
Guide for the LIST Command.) 


The second method for adding comments to a program is.to use the comment field. You mark the beginning of the 
comment with an exclamation point (!). For example: 


10 A = BHC !THIS [5 A TEST. 


The comment has no effect on the execution of the statement. You can end the comment with either an exclama- 
tion point (!) or a line terminator. 


You can place a comment between statements on a multi-statement line if you terminate the comment with an 
exclamation point. A backslash does not terminate a comment field because BASIC interprets it as part of the 
comment. 


Note that the DATA statement and the IMAGE statement (Sections 3.1.3 and 4.5 respectively) cannot have com- 
ment fields. Each must be the only statement on its respective line. 


Also, you cannot continue a comment field to another line. You can, however, continue the statement preceding 
the comment. For example: 


10 a ee IS A COMMENT & 


Le 
THEN FRINT 


BASIC does not generate any code for the comment but does continue the statement. 
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ELEMENTS OF BASIC-PLUS-2 


2.1 TERMINOLOGY 

In order to write programs in BASIC, you must be familiar with the terms and phrases used to describe the program 
elements. You will probably recognize most of these terms from previous experience; however, the following 
sections define these terms within the context of BASIC-PLUS-2. 


2.2 CONSTANTS 
There are three types of constants in BASIC: 


1. Numeric (real numbers, also called floating point numbers) 
2. Integer (whole numbers) 


3. String (alphanumeric and/or special characters) 


2.2.1 Numeric Constants 
A numeric constant is one or more decimal digits, either positive or negative, in which the decimal point is optional. 


The following are all valid numeric constants (real numbers): 


5 42861 
74 #125 
6. 25 


BASIC accepts numeric constants within a certain range. Refer to your User’s Guide for this information. 


If you type a numeric constant into the source text that is outside the range of numeric values representable by the 
hardware, BASIC prints a fatal error message to that effect. Your program will not execute until you replace the 
numeric constant with one in the proper range. 


However, you can input very large numbers and very small numbers (within this range) by using a method similar to 
scientific notation. Use the following format: 


+ or - X.XXxxxE+or-n 
5.24016E-3 


where: 
+ or- is the sign of the number. The plus sign (+) is optional with positive numbers; the minus sign (- ) is 
mandatory with negative numbers. 
X is the number carried to six decimal places. 
E represents the words “times 10 to the power of”’ 
n is the exponential value (the power of 10). 
This method of mathematical shorthand is called E notation or floating point notation. It is BASIC’s way of repre- 


senting scientific notation. To use this format, append the letter E to the number. Then follow the E with an 
optionally signed constant (see Section 2.2.2). The constant is the exponent. It can be O but never blank. 
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Thus you can type: 
6000000 as 6E6 and .000005 as 5E-6 


With E notation you are actually positioning the decimal point internally. A positive exponent moves the decimal 
point to the right; a negative exponent moves the decimal point to the left. For instance, if you type the number 


5.2041E-3 
BASIC interprets it as .0052041. 
Table 2-1 shows the different methods of writing numeric constants. 


Table 2-1 Number Notations 


BASIC uses single precision floating point format when storing and calculating most numbers. Integers, however, are 
handled in a slightly different manner. (See Section 2.2.2.) | 














The following are examples of numeric constants: 


.84103E- 06 =O17 #12345 
6.64 SE+03 8 .OE-03 
-9.4177 6562 25 


2.2.2 Integer Constants 
An integer constant is a whole number (no fractional part) written without a decimal point. Type an integer 


constant as one or more decimal digits terminated by a percent sign (%). For example, the following numbers are all 
integer constants (whole numbers): 


29% - 8% 
3432% 1% 
12345% 205% 


The following are not integer constants: 


1.6 08% 
754.2% 5 .2041E+06 


In BASIC, you can type integer constants within the range specified by your system. See the User’s Guide for this 
information. If you specify a number outside the range, BASIC prints a fatal error message telling you to replace 
the number with one within the proper limits. 


2.2.3 String Constants 
A string constant (also called a literal) is one or more alphanumeric and/or special characters enclosed by double 
quotation marks (“‘text”’) or single quotation marks (‘text’). You can include double quotation marks within a 
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string constant delimited by single quotation marks and vice versa. Include both the starting and ending delimiters 
when typing a string constant in a source program. These delimiters must be of the same type (both double 
quotation marks or both single quotation marks). 


Each character in a string constant can be a letter, a number, a space, or any ASCII character except a line termi- 
nator. The value of the string constant is determined by all its characters. For example, because of the number of 
spaces between the quotation marks and the characters: 


= DIGITAL ’’ is not the same as “DIGITAL” 
BASIC prints every character between quotation marks exactly as you type it into the source program, including: 


1. Lower-case letters (a-z) 
2. Leading, trailing, and embedded spaces 
3. Tabs 


Note, however, that BASIC does not print the delimiting quotation marks when the program is executed. 


00010 FRINT "DIGITAL" 
00020 ENT 


REALTY 
RUNNH 
QXVGITAL. 


In order to make BASIC print quotation marks, you must enclose them within another pair of quotation marks, 
either double or single. 


00010 FRINT ‘HE SAITYy "GOOD MORNING! "/ 
00020 END 


RUNNH 
HE SATO, “GOOD MORNING! * 


Here are some examples of string constants: 


“This Is a String Constant.” 
‘SO IS THIS.’ 
“TONY’S TENNIS RACKET” 


The following are examples of invalid string constants: 


“WRONG TERMINATOR’ 
‘SAME HERE” 
“NO TERMINATOR 


2.3 VARIABLES 

Depending on the operations you specify in a program, the value of a variable may change from line to line. BASIC 
uses the most recently assigned value of a variable when performing calculations. This value remains the same until 
a statement is encountered that assigns a new value to that variable. 
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BASIC accepts three types of variables: 


1. Numeric 
2. Integer 
3. String 


All statement keywords are reserved (see Appendix C) and, therefore, cannot be used as variable names. The follow- 
ing sections describe the formation of legal variable names. 


2.3.1 Numeric Variables 

A numeric variable is a named location in which a single numeric value is stored. You name a numeric variable with 
a single letter followed by 29 optional characters consisting of letters, digits, or periods. Therefore, the maximum 
length of a numeric variable name is 30 characters: 


1 letter 
29 optional characters 


Do not embed spaces between characters. The following are numeric variables: 


C Gass 
M1 BIG47 
F67T J Z2. 


The following are not legal numeric variables: 


6 220 
A G*T 
4D 8/3 


Before program execution, BASIC sets all numeric variables to 0 except for those in virtual array, MAP, or 
COMMON declarations (Sections 9.3, 10.14, and 11.2.1 respectively). If you require an initial value other than 0, 
you can assign it with the LET statement (Section 2.5). Otherwise, you can declare the value implicitly by just 
typing the variable in a program. 


NOTE 
Because other BASIC implementations may not set all 
variables to 0 before program execution, you should not 
rely on this feature. Good programming practice dictates 
that you initialize all variables at the beginning of the 
program. 


2.3.2 Integer Variables 

An integer variable (like a numeric variable) is a named location in which a single value can be stored. Using an 
integer variable in your program indicates that space is reserved for the storage of a whole numher (no fractional 
part). 


You name an integer variable with a single letter followed by 29 optional characters consisting of letters, digits, or 
periods and terminate the name with a percent sign (%). Therefore, the maximum length of an integer variable name 
is 31 characters: 


1 letter 


29 optional characters 
1 percent sign (%) 
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(No embedded spaces are allowed.) The following are integer variables: 


ABCDEFG% C.8% 
B% D6E7% 


The following are not integer variables: 


A B2$ 
1B% 123% 


If you include an integer variable in a program, then the value you supply for it must be an integer constant. Ifa 
numeric constant (real number) is assigned to an integer variable, BASIC drops the fractional portion of the value. 
The number is not rounded to the nearest integer; it is truncated. Consider the following example: 


B% =-5.7 
BASIC assigns the value -5 to the integer variable, not-6. This method of truncating can lead to serious inaccuracies. 


If you assign an integer constant to a numeric variable, BASIC prints the integer value as an integer but stores the 
real number internally. 


2.3.3 String Variables 

A string variable is a named location used to store alphanumeric strings. You name a string variable with a letter, 
followed by 29 optional characters consisting of letters, digits, or periods, and terminate the name with a dollar 

sign ($). (No embedded spaces are allowed between characters.) The dollar sign ($) must be the last character in the 
name. Therefore, the maximum length of a string variable name is 31 characters: 


1 letter 
29 optional characters 


1 dollar sign ($) 


The following are examples of string variables: 


Ci$ M$ 
L.6$ F34G$ 
ABCI$ T..$ 


These are not string variables: 


Cl 12345$ 
6.L$ $8 
$56A AB 


Strings have a value and a length. BASIC initializes all string variables (unless in a virtual array, MAP, or COMMON 
area) to a length of 0 (null string) before the start of each program execution. During execution, the length of a 
character string associated with a string variable can vary from 0 (signifying a null or empty string) to a limit set by 
your system. See the User’s Guide for this information. String variables can also be declared implicitly just by 
appearing in a program. 


Note that a simple numeric variable, an integer variable, and a string variable that begin with the same alphanumeric 
characters represent three distinct variable names. 
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The following names are all legal within a single BASIC program: 


A5 asimple numeric variable 
A5% an integer variable 
AS$_ a string variable 


2.3.4 Subscripted Variables 

A subscripted variable is a numeric, integer, or string variable with one or two subscripts appended to it. The 
subscripts can be any positive expression type: a constant or a variable (integer or numeric), a letter or symbol, 
or any combination of these. BASIC converts non-integer expressions to integer by truncating the fraction. The 
value of the subscript can be 0 to a maximum defined by your system. Refer to the User’s Guide for this 
parameter. 


The subscript in a subscripted variable is a pointer to a specific location in a list or table in which a value is stored. 
(See Section 2.6 for more information on lists and tables.) You designate the pointer with either one or two 
subscripts enclosed by parentheses. If there are two subscripts, separate them with a comma. The value stored can 
be numeric, integer, or string data. 

To name a subscripted variable, start with a numeric, integer, or string variable name: 


A A% A$ 


To refer to an element in a list (one dimension), follow the variable name with one subscript within parentheses. For 
example: 


A(6) A%6) A$(6) 
A(6) refers to the seventh item in this list: 


AQ) AQ) A@) AG) AG AG) A) 
10 20 30 40 50 60 70 


To refer to an element in a table (two dimensions) follow the variable name with two subscripts. The first subscript 
designates the row number, and the second subscript designates the column number. Separate the two subscripts 
with a comma. For example: 

A(7,2)  A%(4,6) A$(17,23) 
BASIC accepts the same alphanumeric characters for a simple numeric variable and a subscripted variable within the 
same program. However, do not use the same alphanumeric characters for two arrays (Section 2.6) with a different 
number of subscripts. 
This is acceptable in the same program: 

D simple numeric variable 

D(8) subscripted variable 
This is not acceptable in the same program: 


D(8) one subscript 


D(8,6) two subscripts 
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2.4 FORMING EXPRESSIONS 
An expression can be numbers, strings, constants, variables, functions (Section 2.4.6), array references (Section 2.6), 
or any combination of these, separated by any of the following: 


1. Arithmetic operators 
2. Relational operators 
3. String operators 

4. Logical operators 


2.4.1 Arithmetic Expressions 
BASIC allows you to perform addition, subtraction, multiplication, division, and exponentiation with the following 
operators: 


** or ~ Exponentiation 
* Multiplication 
/ Division 
+ Addition, Unary + 
- Subtraction, Unary - 


Performing an arithmetic operation on two arithmetic expressions of the same data type yields a result of that same 
type. For example: 


A%+B% = an integer expression 
G3*M5 a numeric expression 
A$+D$ a string expression 


i} 


If you combine an integer quantity with a numeric quantity, the result will be numeric. For example: 
A*B% = anumeric expression 
6.83 + 5% = 34.15 


Note that in general, you cannot place two arithmetic operators consecutively in the same expression. The 
exceptions are the unary plus and unary minus. For example: 


A*-B is valid and A*(-B) is valid. 
Table 2-2 provides examples of arithmetic operators and their meaning. 


Table 2-2 Arithmetic Operators 


Subtract B from A 
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2.4.2 String Expressions 
BASIC provides the plus sign (+) (and the ampersand (&) as an operator for string expressions. By using this 
operator you can link one string to the end of another. This operation is called concatenation. 
Consider the following example: 
00010 C$ = "GOO" + "RYE" 
00020 FRINT C& 
00030 END 
During execution, BASIC prints the following: 
GOOURYE 
A$ + B$ or A$ & B$ mean concatenate or link string B$ to the end of string A$. 
2.4.3 Relational Expressions 
A relational operator is a symbol used to compare the value of one variable or expression to another variable or 
expression within a BASIC program, thus creating a relational expression. As explained in Section 5.1.3, one of the 


uses of relational expressions is with the IF-THEN-ELSE statement to create conditional transfers. 


If a relational operator is used on the right side of an assignment, its value is - 1 if the relation is true, and O of the 
relation is false. 


NOTE 
It is illegal to compare a numeric or integer expression to 
a string expression using a relational operator. 


Table 2-3 provides examples of relational operators and their meaning. 


Table 2-3 Relational Operators 


a 
Se 
a 















A is greater than or equal to B 
A is not equal to B 


A is approximately equal to B if the difference 
between A and B is less than 10°(-6). 






2.4.4 Comparing Strings Using Relational Operators 

When you use a relational operator to compare the value of one or more alphanumeric characters, you create a 
relational string expression. BASIC uses the ASCII character collating sequence to determine which character 
is greater or lesser in value than the other. (See Appendix B for the ASCII Table.) The comparison is made, 
character by character, left to right, by ASCII value until BASIC finds a difference in value. 
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When applied to strings, relational operators compare characters for alphabetic sequence. Consider the following 
program: 


00010 AG = "ARC" 

00020 HK$ = "DEF" 

00030 IF ASB GOTO 40 
00040 FRINT At 

00050 FRINT RE 

00060 END 


When BASIC executes line 30, it compares string A$ with BS$ to determine if A$ occurs first in alphabetic sequence. 
In this case, it does, and the program transfers control to line 60 (see Section 5.1 for transferring control of a 
program). If string B$ occurred before string A$, program execution would continue to the next statement follow- 
ing the comparison, i.e., line 40. 


BASIC compares strings just as you compare words to be placed in alphabetical order. BASIC compares the first 
character in each string, A and D. The letter A precedes the letter D in the ASCII table; therefore, string AS 
precedes string B$ in alphabetic sequence. If the first two characters are equal, BASIC proceeds to the second two 


characters, until a difference is found. For example: 


ABC 
AEF 


BASIC compares A to A and finds them equal in value. Then BASIC compares B and E and finds B less than E. The 
comparison ends here, and BASIC concludes that ABC occurs before AEF in alphabetic sequence. 


Table 2-4 provides examples of string operators and their meaning. 


Table 2-4 String Relational Operators 


AS = BS Strings A$ and BS are equal after removing trailing blanks and 
nulls. 
ef A$ < BS String A$ occurs before string B$ in alphabetic sequence. 













= 


A$==B$ 







Strings A$ and B$ are identical (exactly the same length without 
padding and composition of all characters). 





Note that the relational operator == has a different meaning when applied to strings than when applied to numbers. 
When comparing strings of different lengths, BASIC treats the shorter string as if it were padded with trailing blanks 
to the length of the longer string. In order to perform character-to-character comparison, BASIC needs two charac- 
ters to compare. This is where the trailing blanks serve their purpose. 
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Consider the following example: 


90010 A%® = "ANTONY" 
00020 BS = "CLEOPATRA" 
00030 IF At=BE GOTO SO 
00040 At = AF + BS 
00050 FRINT A$ 

00060 ENT 


BASIC compares the A in ANTONY and the C in CLEOPATRA. The ASCII value of A is 65; the ASCII value of C 
is 67. Therefore string A$ precedes string BS in alphabetic sequence. Control shifts to line 50. If A$ were greater 
than B$, the program would continue to line 40. This is what happens when BASIC executes the program: 


RUNNH 
ANTONY 


2.4.5 Logical Expressions 

A logical expression consists of either one operand preceded by a logical operator or two operands separated by a 
logical operator. Logical expressions are used in statements like the IF-THEN-ELSE statement (Section 4.1.3) where 
a condition is tested to determine subsequent operations within the program. The operands, in this case, are usually 
relational expressions. Logical expressions can also be used with integer data. However, logical operations on strings 
are illegal. 


BASIC determined whether the condition is true or false by testing the bit-wise result of the logical expression for 
non-zero and zero, respectively. (That is, a non-zero result is true, and a zero result is false.) Notice that any non- 
zero value is assumed to be true. BASIC supplies the value -1 for true when it evaluates a logical or relational 
expression but accepts any non-zero value when performing a test. Therefore: 


A% = 10% 
B% = NOT A% 


Hi 


Both A% and B% are true, e.g., A% = 10 and B% =-11. Logical operators are reserved words. See Appendix C. 
Table 2-5 provides a list of logical operators and their meaning. 


Table 2-5 Logical Operators 


NOT A% The logical opposite of A%. If A% is false, NOT A% is true. 


AND A% AND B% The logical product of A% and B%. A% and B% is true only if 
both A% and B% are true. 
OR 


A% OR B% The logical sum of A% and B%. A% or B%is false only if both 


A% and B% are false; otherwise A% OR B% is true. 
— 
— 


























The logical exclusive OR of A% and B%. A% XOR B%is true 
if either A% or B% is true but not both; and false otherwise. 


A% is logically equivalent to B%. A% EQV B% has the value 
true if A% and B% are both true or both false; and has the 
value false otherwise. 


The logical implication of A% and B%. A% IMP B% is false if, 
and only if, A% is true and B% is false; otherwise the value is 
true. 
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Logical expressions are legal wherever numeric expressions are legal in BASIC. However, both operands must be 
integers. 


The following tables are called truth tables. They describe graphically the results of the above logical operations on 
a bit-by-bit basis. Every possible combination of bits for A% and B% is given. 


Table 2-6 Truth Tables 
NOT A% A% OR B% 
1 0 


0 I 
1 
1 


A% AND B% A% EQV B% 
0 1 
0 0 
0 0 
1 1 

A% XOR B% A% IMP B% 
0 | 


1 1 
It 0 
0 J 





Notice that the two operators XOR and EQV are exact opposites. 


2.4.6 Functions 
Library functions are an integral part of the BASIC language. A function can be accessed in a program by stating its 
name. A sequence of instructions is then performed automatically. 


A function name is used just like a variable name. When you type a function into a program, you are actually calling 
a pre-written routine. Consider the following example: 


00010 FRINT SQR¢49) 
00020 ENT 


REATIY 
RUNNH 
7 


SQR is the function that defines the square root of the number within parentheses, in this case 49. 

Functions are fully described in Chapter 7. For a complete list of library functions, refer to Appendix A. 

2.4.7 Evaluating Expressions 

BASIC evaluates expressions according to operator precedence. Each arithmetic, relational, and string operator 
joining an expression has a predetermined position in the hierarchy of operators. The operator’s position tells 


BASIC when to evaluate the operator in relation to the other operators in the same expression. Parentheses may be 
used to alter the order of precedence. 
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In the case of nested parentheses (one set of parentheses within another), BASIC evaluates the innermost expression 
first, then the one immediately outside it, and so on. The evaluation proceeds from the inside out until all 
parenthetical expressions have been evaluated. For example: 

B = (25+(16*(9°2))) 
Because (9°2) is the innermost parenthetical expression, BASIC evaluates it first, then (16*81), and then (25+1296). 


Table 2-7 lists all operators in the order BASIC evaluates them: 


Table 2-7 Operator Precedence 


sa HIGHEST 


- (unary minus) 


mi 
+,- 

+ (concatenation) 

all relational operators 
NOT 

AND 

OR, XOR 

IMP 

EQV 





Operators shown on the same line have equal precedence. Except for the operators + and *, BASIC evaluates 
operators of the same precedence level from left to right. The operators + and * are evaluated in any order that is 
algebraically correct. Note that BASIC evaluates A°B’C as (A“B)°C on all processors. 


All relational operators are on the same precedence level. 


BASIC evaluates expressions enclosed in parentheses first, even when the operator enclosed in parentheses is on a 
lower precedence level than the operator outside the parentheses. Consider the following example: 


A = 15°2+1272-(35*8) 


BASIC evaluates this expression in five ordered steps: 


L.. 15-2 2= 225 Exponentiation (left-most expression) 
2. 12°2 =144 Exponentiation 

3. 35*8=280 Multiplication 

4. 225+144= 369 Addition 

5S. 369-280= 89 Subtraction 


2.5 ASSIGNING VALUES TO VARIABLES — THE LET STATEMENT 
The LET statement enables you to assign a value to a variable. The LET statement has the following format: 


LET variable(s) = expression 


or 
variable(s) = expression 
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where: 
expression can be a string, numeric, or logical expression. (The keyword LET is optional.) 
The LET statement replaces the variable on the left of the equal sign (=) with the value on the right. Hence, the 
equal sign (=) signifies the assignment of a value and not algebraic equality. BASIC evaluates the expression from 
left to right and assigns the values from right to left. Here is an example: 
10 LET A = 482.5 
This statement assigns the value 482.5 to the variable A. You can also write the statement this way: 
19 A = 482.5 
BASIC also evaluates any formula you assign: 
10 A = CXtY¥)-84 
BASIC calculates the expression (X+Y)- 84 and then assigns the resulting value to the variable A. 
In addition, you can assign a value to more than one variable at a time, as in the following example: 


10 AvyBsC = 64xXG2 


This statement has the same effect as: 


10 C = 64X82 


20 EK = 64*§82 
30 A = 64X82 


BASIC also converts the data type of the value to the data type of the associated variable, i.e., integer or real. In the 
following example, 


10 AAvyEeCHZHyD = 9.5 


is the same as 


10 D = 9,5 
20 C% = 9 
ZO R= 9.5 
40 AX = 9 


BASIC assigns the values from right to left. Refer to Section 2.3 for a description of variables. 


Moreover, if you reference an array element as a variable (see Section 2.6) BASIC calculates the value of the 
subscript before assigning values to the other variables in the list. For example, the following assigns the value 5 to 
the list element A(2). Then the value of I changes to 5: 


19 T= 2 
20 ACT)» T25 


You can also assign a string expression to a variable as well as a numeric expression. However, you cannot mix 


strings and numeric expressions in the same LET statement. If you do, BASIC prints an error message on the 
terminal. 
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The following is an example of a string assignment: 


10 AS="HELLO* 
20 FRINT AS 
30 ENT 


RUNNH 
HELLO 


Refer to Sections 2.2.3 and 2.3.3 for information on strings. 
Note that you can place a LET statement anywhere in a multi-statement line: 
10 TIM ACZINI=42N\PRINT I 


2.6 ARRAYS 

Basic automatically reserves storage space for arrays with maximum subscripts of 10, i.e., A(10) and A(10,10). If 
you require a larger amount of reserved space, define the dimensions with the DIM statement (see Section 2.6.1). 
Conversely, if you do not require the space BASIC supplies by default, save the space for your program by reserving 
a smaller area with the DIM statement. 


When you establish the size of the array, BASIC stores the dimensions in a particular area for future reference. 
BASIC starts counting elements from 0, not 1; therefore, you have an additional element for a list and an additional 
row and column for a table. 


For example, dimensioning the array A(6) gives you seven storage areas in the list, not six: 

ROW 1 A(O) 
2 A(l) 
3 A(2) 
4 A(3) 
5 A(4) 
6 A(5) 
7 A(6) 


Array B(3,3) contains storage space for 16 elements. This is the layout of array B(3,3): 


COLUMN 1 ? 3 4 
ROW 1 B(0,0) B(0,1) B(0,2) B(0,3) 
2 B(1,0) B(1,1) B(1,2) B(1,3) 
3 B(2,0) B(2,1) B(2,2) B(2,3) 
4 B(3,0) B(3,1) B(3,2) B(3,3) 


Figure 2-1 Array B 
Note that if you reference an array with the wrong number of subscripts, BASIC prints an error message. 
Remember that it is possible to use the same alphanumerics to name both a simple variable and an array within the 


same program. But using the same name for two arrays with a different number of subscripts is illegal within the 
same program, i.e., A(S) and A(3,4). 
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2.6.1 The DIM Statement 
The DIM statement allows you to define the dimensions of an array in your program. By using the DIM statement, 
you reserve storage space to be filled with values of either numeric or string data. 


The DIM statement has the following format: 


DIM subscripted variable(s) 
or 
DIMENSION subscripted variable(s) 


where: 


subscripted variable(s) is one or more numeric, integer, or string variables separated with commas (see 
Section 2.3.4). Subscripts must be numeric or integer constants. 


Each subscripted variable name represents a distinct list or table. The subscripts must be constants and can range 
from O to the system defined maximum. Because BASIC automatically reserves storage for arrays with maximum 
subscripts of 10,i.e., A(10) and B(10,10), use the DIM statement to reserve storage for lists with more than 11 
elements and matrices with more than 121 elements. 
In the DIM list, you are specifying: 

1. The name of the array 

2. The number of subscripts (one or two) 

3. The maximum value of each subscript 
Here is an example of a DIM statement: 

10 PIM AC25) BE S95) C47 7146) eTISC15) 
No array can have more than two subscripts. If you do not specify a subscript in the second position, only one 
subscript is permitted for that variable name in future references. When using the DIM statement to set the 
maximum values for the subscripts, you are not obligated to fill every storage space you allocate. 
Arrays are stored as if the rightmost subscript varied the fastest. For example: 

10 DIM ACL»S) 


provides 12 contiguous areas of storage. 


Because the DIM statement is not executed, you may place it anywhere in the program. It can also be one of 
several statements in a multi-statement line. 


The following example sets up storage for a matrix with 20 elements: 
10 DIM AC3+4) 

The storage addresses look like this: 
00 O,. O22 O03 0,4 
10 1, 1,2 #13 1,4 


20: 2.0 .22. 2: 24 
30 3,1 3,2 3,3 3, 
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Notice that reading across left to right, the second subscript increases first. 


As stated previously, the first element of every array begins with a subscript of 0. If you dimension a matrix 
C(6,10), you set up storage for 7 rows and 11 columns. The 0 element is illustrated in the following program: 


00010 REM MATRIX CHECK FROGRAM 
00020 DIM C(é919) 

00030 FOR I = 0 TO & 

00040 LET C(Iv0) = I 

00050 FOR J = 0 TO 10 

00060 LET C(O»J) = J 

00070 FPRINT CCIyJ)3 

00080 NEXT JNFRINT\NEAXT Tf 


90090 ENT 

REALTY 

RUNNH 
Oo 1 2 3 4 S$ & FF 8B F 14 
10 0 49 O92 0 QO 9 oO  Q 
x 9 O09 O 0 0 O09 O 0 0 @ 
3 0 9 090 O09 O90 0 OO GG DG 9 
4 0 0 9 90 0 9 09 0 OQ @G 
~ O09 0 G9 O09 0 0 09 O90 OO 9G 
6 0 0 9 09 O90 9 G9 O Q 9 


Notice that a numeric or integer variable has a value of O until you assign it another value. (A string variable is 
considered a null string.) 


You can also dimension string arrays with the DIM statement: 


O0O010 DIM A$(S) 

00020 INFUT ACT) sAB C2) PACS YABC AI ALCS) 
00030 MAT FRINT A$(S) 

00040 ENT 


REALTY 


RUNNH 
P HyEvylebsO 
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CHAPTER 3 
INPUT AND OUTPUT TO THE TERMINAL 


3.1 SUPPLYING DATA 
BASIC has three methods of supplying data to a program: 


1. The INPUT statement — requires that you interact with the computer while the program is running. 

2. The READ, DATA, and RESTORE statements — require that you build a data block within the source 
program. 

3. The file statements — require that you manipulate files outside the main program. See Chapter 9 for 
information on file input and output. 


3.1.1 The INPUT Statement 
The INPUT statement allows you to enter and process data while the program is running. 


The INPUT statement has the following format: 
INPUT variable(s) 
where: 


variable(s) is one or a list of numeric, integer, string, or subscripted variables or any combination of these 
separated by commas. 


Consider the INPUT statement as another means of assigning values to variables. When you run your program, 
BASIC stops at the line designated by the INPUT statement and prints a space, a question mark (?), and a space. 
BASIC then waits for you to type one value for each variable requested in the INPUT statement. When there is 
more than one variable requiring a value, separate each value with a comma. Press a line terminator after you finish 
typing all the values. 


The following example requires that you type three values after the question mark (?). 


00010 INFUT AvEBsC 
00020 ENT 


REALY 
RUNNH 
P Sxd97 


The INPUT statement tells BASIC to accept the forthcoming data from the user terminal. BASIC accepts the values 
left to right. After you type all the necessary data, type a line terminator. The program continues using the values 
you supply. Therefore, in the previous example 


A=5 
B=6 
C=7 


Input and Output to the Terminal 


You must supply the same number of values as there are variables in the INPUT request. If you do not type enough 
data, BASIC lets you know by printing the message “INSUFFICIENT DATA AT LINE n” and another question 
mark (?) when you press the RETURN key. 


00010 INFUT AvB 
00020 END 


REALLY 

RUNNE 
POS 

P §9 Insufficient data et line QOO1LO of MAIN FROGRAM 
? & , 


REALTY 


On the other hand, if you supply more values than there are variables to be defined, BASIC ignores the excess and 
00010 INFUT As ByC 
00020 FRINT AvyBsC 
00030 ENT 


REALTY 
RUNNH 


fo 4 ia 
7 SvG97/98 


a & 





REATY 


The extra value entered (8) is ignored. 


The values you supply must be the same data type as the variables in the INPUT statement, i.e., strings for string 
variables, integers for integer variables. You can type strings with or without quotation marks in answer to the 
question mark. If you include quotation marks, be sure to type both beginning and ending delimiters. If you 
forget the end quotation mark, BASIC reads the rest of the line as the entire string. You will also receive an error 
message. 


Including a string constant in an INPUT statement allows you to see the results of your computations. You must 
separate the string constant from the variable list with a comma or semicolon. For example: 


00020 INFUT "FLEASE TYPE 3 INTEGERS *sBAsCAy Tx 
00030 AX = EBX + CK + Mle 

90040 PRINT Ax 

00050 END 


REATIY 

FRRUNIE 

PLEASE TYPE 3 INTEGERS ? 220975 | 
1350 


REATIY 
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NOTE 
The INPUT # statement (see Section 9.3.1) is used to input 
values from a file. Logical unit 0 is the user terminal. 


10 INFUT #04 X+#Yo2Z 
is equivalent to 
10 INFUT XvY¥v9Z 


The INPUT statement with a string constant but without a variable list has the same effect as the PRINT statement, 
Section 3.2. For example: 


10 INFUT “BASTIC-FLUS 2" 


RUNNE 
BASIC-PLUS@2 
REALLY 


3.1.2 The INPUT LINE and LINPUT Statements 
The INPUT LINE statement and the LINPUT statement have essentially the same function as the INPUT statement. 
However, INPUT LINE and LINPUT are used exclusively for string data. Use the following format: 


INPUT LINE string variable(s) 
LINPUT string variable(s) 
where: 


A space is required between the keywords INPUT and LINE. 
LINPUT is one word. 
All variables must be string variables in INPUT LINE and LINPUT statements. 


The INPUT LINE statement accepts and stores all characters including quotation marks and commas, up to and 
including the first line terminator. LINPUT accepts all characters up to the line terminator, but does not include 
the line terminator. For example: 


00010 LINFUT &4 
00020 FRINT EK 
00030 ENT 


READY 
RUNANH 
P 8NOM. LOOK HERE P's Gatti JOHN 


"NOW: LOOK HERE! *ySAID JOHN 


READY 


If you try to type the string shown above, in response to an INPUT statement, you will receive a warning message. 
The INPUT would take the comma after the word ““HERE!”’, as the delimiter of the string. 


Both INPUT LINE and LINPUT can reference a terminal or a terminal-format file. See Chapter 9 for more 
information. 
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3.1.3 READ, DATA, and RESTORE (RESET) Statements 

Another way you can supply data to a program is to build a data block for BASIC to read during execution. This 
means that you do not interact with BASIC while the program is running. Instead, you supply a pool of data to the 
program in advance. Two statement keywords are involved in this process: READ and DATA. 


The READ statement has the following format: 
READ variable(s) 
where: 


variables(s) is one or a list of variables consisting of numeric, string, subscripted variables, or a combination 
of these. All variables should be separated by commas. For example: 


10 READ AvBAsCHe NCS) vo E 
The READ statement directs BASIC to read from a list of values built into a data block by a DATA statement. 
The DATA statement has the following format: 

DATA constant(s) 
where: 


constant(s) is one or more numeric, integer, or string constants (quoted or unquoted) listed in the same 
order of data type as the variable requested in the READ statement. All constants are 
separated by commas. 


The program runs faster with READ and DATA statements than with the INPUT statements because you do not 
have to wait the extra time it takes for BASIC to stop and request data. The data is already within the program. 


A READ statement causes the variables listed in it to be given the next available constants, in sequential order, from 
the collection of DATA statements. BASIC has a data pointer to keep track of the data being read by the READ 
statement. Each time the READ statement requests data, BASIC retrieves the next available constant indicated by 
the data pointer. 


A READ statement is not legal without at least one DATA statement. However, you can have more than one DATA 
statement. Without a READ statement, BASIC ignores the DATA. 


QOO010 READ Avy Bs Cyolty Ev F 
00020 FRINT C 

00030 TATA 17254930 
00040 DATA 4397&s29 


A READ statement can be placed anywhere in a multi-statement line. A DATA statement, however, must be the 
last or only statement on a line. Each list of constants in a DATA statement is local to a program or subprogram 


(see Section 11.1) and must be referenced by line number, not by order of appearance in a program. 


If you build your READ statement with more variables than you include in the data block, you receive a warning 
message from BASIC. 
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You will receive error messages if: 


1. You have a READ statement without a DATA statement. 
2. You assign a string constant to a numeric variable. 
3. You place more variables in the READ statement than you supply data to define them. 


You can READ a numeric constant into a string variable. For example: 


00010 READ As 
00020 FRINT AS 
00030 TATA 8.25 
00040 ENT 


REALTY 
RUNNH 
8.25 


REALLY 
The following is an example of a READ and DATA sequence. 


00010 READ AvyBseClyD2vE 4s hy 2¢9Z14$ 
00020 TATA 2.43974. 26549 Se Syl2y "CAT" »NOGs “MQUSE ’ 
00030 PRINT AsKsFCisN2sE45Vby2h9Z1% 


BASIC assigns values as follows: 


A=2 3 

B=- 4.2654 

C1=3 

D2=-6 

E4=12 

Y$=CAT 

Z$=DOG 

Z1$=MOUSE 

RUNNH 

203 -4,.2654 3 -6 12 CAT OG MOUSE 


READY 


In some programs you may need to read the same data more than once. BASIC provides the RESTORE statement 
for this purpose. 


The format of the RESTORE statement is: 
RESTORE 


The RESTORE statement resets the data pointer to the beginning of the first DATA statement in the program. 
(The keyword RESET performs the same function ): The values are read as though for the first time; therefore, the 


same variable names may be used the second time through the data. 
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Consider this example: 


00010 READ ByCyf 

O001S5 FPRINT Be»CyI 
00020 RESTORE 

00030 REA EvF+G 

00035 FRINT EvF+G 
00040 TATA S99 39497 99¥2 
00050 ENT 


The READ statement in line 10 reads the first three values in the DATA statement, line 40: 


6 
3 


ee 


4 


Then the RESTORE statement on line 20 resets the pointer to the beginning of line 40, so that the second READ 
statement on line 30 also reads the first three values. BASIC reads these values as though for the first time: 


‘t 
Wd OV 


On 


If the RESTORE statement were not there, READ on line 30 would read the last three values: 


E=7 
F=9 
G=2 


The RESTORE statement affects only the program or subprogram (see Chapter 11) in which it is contained. Also, 
if you have no DATA statements in your program, RESTORE has no effect. 


NOTE 
The RESTORE # statement (Chapter 9) is used to restore 
files to their beginning. 


3.2 CHECKING OUTPUT — THE PRINT STATEMENT 
Another useful statement to include in your program is the PRINT statement. The PRINT statement has the 
following format: 


PRINT (lexpression(s)]] 
where: 


expression(s) | can be one or more numeric or string elements separated with commas or semicolons. 
(See Section 3.2.1.) 


The PRINT statement prints a list of elements on the terminal when you execute your program. In this way, you 
can see the results of your computations or add comments to clarify your requests for input. (The PRINT statement 


can be placed anywhere in a multi-statement line.) 


You can include blank lines in your output for readability. Using the PRINT statement without arguments causes a 
blank line to appear in the output: 
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PRINT “THIS EXAMFLE LEAVES A BLANK LINE" 
PRINT 
PRINT 


ENT 


"BETWEEN TWO LINES." 


REATIY 
RUNNH 
THIS EXAMPLE LEAVES 


A BLANK LINE 


BETWEEN TWO LINES. 
REATLY 


When an element in the list is an expression rather than a simple variable or constant, BASIC evaluates the expres- 
sion before printing the value. Therefore, the PRINT statement performs two functions in one, calculates expres- 
sions and prints the results. For example: 

00010 A = 45N\EB = SS 
00020 FRINT A + EB 
00030 END 


REATIY 
RUNNH 
100 


After running this program, BASIC prints 100 on your terminal, not 45+55. If you put quotes around the variables, 
this is what happens: 


00010 A = 
00020 FRINT 
00030 END 


45\B = SS 
"A + B* 


REALY 
RUNNE 
A + B 


If you plan to have someone else run your program, you can clarify your requests for input with a PRINT statement. 
(Refer to Section 3.1.1 for more information on the INPUT statement.) Include literal strings (Section 2.2.3) as in 
the following example: 


00010 PRINT "WHAT ARE YOUR VALUES OF X9YZ" 
00020 INFUT X2#Y2Z 

90030 LET KR = SQR¢X72 + Y72 + 272) 

00040 FRINT "THE RALIUS VECTOR EQUALS"3 
000435 FRINT F 

OO050 ENT 


When you run this program, BASIC prints: 
PRUNE 
WHAT ARE YOUR VALUES 
P 2S 4027 SO 
THE RADIUS VECTOR EQUALS 68.73864 


OF Xs¥xZ 


READY 
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Notice that you enclose the strings in quotation marks so that BASIC prints them exactly as you type them in. In 
line 40 of the previous example, a semicolon separates the string from the variable name. Placing a semicolon or 

a comma after the string makes BASIC print the value on the same line as the string. If the separator is not there, 
BASIC performs a carriage return/line feed and begins printing in the first column of the next line. 


THE RADIUS VECTOR EQUALS 
68.7386 


3.2.1. Printing Zones — The Comma and the Semicolon 

A terminal line consists of an integral number of zones, each zone containing 14 spaces. When you use the PRINT 
statement, you can control the placement of your output within these zones by using the legal separators, comma 
(,) and semicolon (;). 


The comma signals BASIC to start printing at the beginning of the next print zone. If the last print zone on the line 
is filled, BASIC prints the output beginning at the first print zone on the next line. For example: 


QOO005 INFUT AvBryCryIts Ey F 
00010 PRINT AvBRreCrls Ey F 
00020 END 


REALLY 

RUNNH 
TF SylOv1 sy 209 25% 30 
va 10 1S 20 ed 
30 


If you place more than one comma between list elements, you will skip one print zone for each extra comma. The 
following example prints the value of A in the first zone and the value of B in the third zone: 


00010 A = S\E = 10 


00015 PRINT “FIRST ZONE" ys "THIRE ZONE" 
Q0020 FRINT Avy 


00030 END 

REALTY 

RUNNH 

FIRST ZONE THIRD ZONE 
5 10 


To print an output line in a more compact format, use the semicolon (;) as the separator between variables. A 
semicolon in a PRINT statement causes tight packing of the print line. Note that whenever BASIC prints a number 
it is preceded by a space or a minus sign and followed by a space. 


00010 FRINT 10520 
50026 ENE 
REALY 
RUNNH 
10 20 
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BASIC does not print a space before strings: 


OO010 FRINT 1020 
00020 ENT 


READY 
RUNNH 
10 20 


Placing a comma or semicolon after the last item in a PRINT statement causes the terminal printer to remain at the 
same print position in, anticipation of another PRINT or INPUT statement. 


In the following example, BASIC prints the current values of X,Y and Z on the same terminal line because a comma 
appears as the last item in line 20: 


INFUT Xv9V¥o2Z 
PRINT Ay9¥y» 
FRINT 2 
ENT 


00010 
00020 
00030 
00040 


READY 
RUNNH 
?P SelOv1lsS 
os 10 Ts 


The following example illustrates the three options you have for placing either a comma, a semicolon, or a line 
terminator after the last item of the PRINT statement: 


00010 FOR I = 1 TO 10 
00020 FRINT I IA LINE TERMINATOR 
00030 NEXT I\FRINT 
00040 FOR J = 1 TO 10 
QO0050 PRINT Jy» 1A COMMA 
00060 NEXT J\NF RINT 
00070 FOR K = t TO 19 
O0080 PRINT Ks 'A SEMICOLON 
00090 NEXT K 
00100 ENT 
REALTY 
RUNNH 
1 
2 
3 
4 
os 
& 
7 
8 
9 
10 
1 2 3 4 os 
é 7 8 9 10 
12 3 4 3 6 7 8 Y 19 
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Commas and semicolons also allow you to control the placement of string output. For example: 


00010 FRINT "FIRST ZONE" yy "THIRE ZONE" y»"FIFTH ZONE® 

00020 END 

REATIY 

RUNNH 

FIRST ZONE THIRD ZONE PIFTH ZONE 


Because of the extra comma between strings, BASIC skips every other printing zone before stopping to print each 
string. 


3.2.2 Output Format for Numbers and Strings 
BASIC prints numbers and strings according to a specific format. Strings are printed exactly as you type them in 
with no leading or trailing spaces. (Quotation marks are not printed unless delimited by another pair.) 


QOO010 PRINT ‘’FRINTING "QUOTATION" MARKS’ 
00020 ENI 

REALTY 

RUNNH 

FRINTING “QUOTATIONS MARKS 


BASIC precedes negative numbers with a minus sign and positive numbers with a space. A space is always placed 
after the right-most digit of a number. 


PRINT ~1 
FRINT 25550 
END 


00010 
00020 
00030 


REATIY 
RUNANH 
ves 1 


3 Ue 
a "i 


uO 
Leading and trailing spaces can be added within the quotation marks by using the keyboard space bar. 
The number of spaces occupied by the decimal representation of a number varies according to the magnitude and 


type of the number. BASIC prints the results of computations as decimal numbers (either integer or numeric) if 
they are within the range 


01<n<999999 
ra mn ia aA nimbas wmvinta Aweresn an OTN ne a et Da ek Oe EN cg gs - 
where nis the number BASIC prints. Otherwise, BASIC prints them in E notation. 


BASIC prints decimal digits as illustrated below: 


Value You Type Value BASIC Prints 
01 O1 
0099 9 .90000E- 03 
999999 999999 
1000000 1 OOOOOEN6 


Input and Output to the Terminal 


If more than six digits are generated during a computation, BASIC prints the result of that computation in E 
notation. 


3.2.3 The TAB Function 
Another method of positioning the terminal printer is to use the TAB function in conjunction with the PRINT 
statement. (Refer to Chapter 7 for information on functions.) 
This function has the following format: 
PRINT TAB(n); 


where: 


n is an expression indicating the desired printing position. BASIC evaluates the expression and truncates 
the result to an integer. 


The TAB function does not cause characters to be printed; it returns a string of spaces. The PRINT statement then 
prints those spaces returned by the TAB function. The number of spaces returned by TAB is n minus the current 
column number. Ifn is less than the current column number, the TAB function returns a null string. 

With the TAB function, you move the terminal printer to the right to any desired column. The first column at the 
left margin is column 0. Therefore, n can be 0 to whatever the right margin is on your terminal, or anywhere in 


between. 


The TAB function can only be used to position the terminal printer from left to right, not right to left. If you 
specify a column that is to the left of the current column position, BASIC returns a null string. 


You can use more than one TAB function in the same PRINT statement by placing them between elements. 


The following examples contain several TAB functions in conjunction with one PRINT statement: 


00010 PRINT "NAME" Ss TARCIS) s "ANMRESS"$TABC30)3 "PHONE NO." 
00020 END 


REATHY 

RUNNH 

NAME AQNQRESS PHONE NO. 
Without tabs 15 and 30, BASIC would print 

NAMEADIRESSFHONE NO. 


Here is an example of printing numbers: 


00010 A = 1LOO\E = 29\C = 35 
T 


00020 FRINT As TARCAISI¢ Rs TABCSOI5C 


00030 END 
REATIY 
RUAN NH 
100 2? a 
Column 0 Column 15 Column 30 
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Notice that semicolons act as separators in the preceding example. 


Compare the following examples. The first one uses commas as separators; the second one uses semicolons. 


00010 A = 100 

00020 & = 200 

00030 C = 300 

00040 FRINT Ay TARC30) + Bs TARC4O) oC 

O00S0 FRINT As TABR(C 302903 TARC 40) 5C 

00060 ENT 

REATIY 

RUNNEH 
100 OU 
500 
100 2 OO 3500 


The commas move the printer to the next zone, then BASIC executes the TAB function. 


You can also place a TAB function outside a PRINT statement. However, the value of the function depends on 
whether or not you did place it in a PRINT statement: 


1. If TAB has not been executed in a PRINT statement then 
TAB(n) = SPACE$(n) 
The SPACES function allows you to add spaces in a string, see Section 7.3.6. 


2. Ifa PRINT statement is executed with TAB, TAB(n) is a string of spaces whose length is equal to the 
number of spaces between the last print position and n. 
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CHAPTER 4 
FORMATTED OUTPUT — THE PRINT USING STATEMENT 


4.1 INTRODUCTION TO PRINT USING 

When the format as well as the content of output is important, use the PRINT USING statement rather than the 
PRINT statement. The PRINT USING statement allows you to control the appearance and location of data on the 
output line thus enabling you to create formatted lists, tables, reports, and forms. 


The following examples print a series of numbers. One program uses the PRINT statement and the other uses the 
PRINT USING statement. 


PRINT PRINT USING 

00010 FRINT 1 00010 FRINT USING "###4444.44") 1 
00020 FRINT 100 00020 FRINT USING "#4#e¢¢44. #4") 100 
00030 FRINT 1000000 00030 FRINT USING "#4444. di" 1000000 
00040 FRINT 100.3 00040 PRINT USING "###4444#.48") 100.3 
00050 FRINT .0123456 00050 PRINT USING "#####44. 84") .0123456 
READY REALY 

RUNNH RUNNH 

1 1.00 

100 100.00 

LE+6 1000000.00 

100.3 100.30 

0,0123456 0.01 
REALIY REALY 


PRINT left-justifies numbers and outputs certain numbers in E (exponential) format. These characteristics make it 
difficult to compare numbers. In contrast, PRINT USING allows you to format numbers so that the decimal points 
are aligned, making it easier to compare the column of numbers. 


You can designate the following formats with PRINT USING: 
1. Numbers 


Number of digits 

Location of decimal point 

Inclusion of symbols (trailing minus sign, asterisks, dollar sign, commas) 
Exponential format 


aow¢ep 


2. Strings 


Number of characters 
Left-justified format 
Right-justified format 
Centered format 
Extended field format 


o MO oP 
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The format of the PRINT USING statement is: 


PRINT USING string, list 


where: 
string is a coded format image of the line to be printed, or the line number of an IMAGE statement. It is 
called the format string. If it is a string constant, it must be enclosed in double quotation marks, 
not single quotation marks. 
list contains the items to be printed. Note that a comma or semicolon separating items in the list has 


no effect on the output. However, a comma or semicolon placed after the last item in the list does 
inhibit the movement of the terminal printer. 


Consider the following example. 


O0O010 FRINT USING “HI “LELLL YOU WEIGH #4#4¢,.4 LBS." "PAUL" +145 
00020 END 


The format string is: 
“HI ‘LLLLL YOU WEIGH #4#.# LBS.” 
and the list contains two data items: 


The string constant “PAUL” 
The integer 145 


In the format string, there are two fields corresponding to the two data items. The first field is “LLLLL which cor- 
responds to the first data item, “PAUL”, and the second field is ###.# and it corresponds to the second data item, 
145. When BASIC prints the line, it prints each data item in the position and format specified by the field. The 
rest of the format string, namely “HI YOU WEIGH LBS.” is the printed message. The output of this 
example is: 


RUNNE 
HT PAUL YOU WEIGH 145.0 LES. 


The way to write format strings is described throughout this chapter and is summarized in Section 4.4. 
4.2 PRINTING NUMBERS WITH PRINT USING 


4.2.1 Specifying the Number of Digits 
With PRINT USING, you can specify the number of places reserved for digits in a field with a corresponding amount 
of number signs (#). 


For example: 


00010 PRINT USING "###",123 
00020 FRINT USING “#####" , 12345 


READY 
RUMMH 
123 

12345 
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If there are not enough digits to fill the field specified, BASIC prints spaces before the first digit. For example: 


OO0010 FRINT USING “#8#4#2",1 
00020 FRINT USING “E####", 10,5 
00030 FRINT USING "##442",1709 
00040 FRINT USING "#4444", 12345 


REALY 
RUNNH 
1 

10 1709 
12345 


Note that spaces are printed before the number so that the entire field is filled. The number sign indicates where 
BASIC prints a space. Placing a comma or semicolon after the list item (line 20) causes the next item to be printed 
on the same line. 


BASIC rounds numbers printed with PRINT USING. For example: 


00010 FRINT USING “#4#" 125.7 
00020 FRINT USING "#"°,3.9 
00030 FRINT USING "#"% 95.4 


REALLY 
RUNNH 
127 

é 


es 


4.2.2 Specifying the Location of the Decimal Point 

You can reserve any number of digits on both sides of the decimal point by placing a decimal point in the number 
sign field. BASIC always prints the digits to the right of the decimal point, even if they are zeros. Consider the 
following example: 


00010 FRINT USING "##,. €##%95.72 
00020 FRINT USING "#4,.¢4##" 739.3758 
00030 FRINT USING “##, 484" 26 


READY 
RUNNH 
we /2Q 
394376 
24.000 


Note that BASIC prints spaces to the left of the decimal point, as necessary, but prints zeros to the right of the 
decimal point. Also note that 39.3758 is rounded to 39.376. 


If there is more than one number sign to the left of the decimal point, at least one digit is printed to the left of the 


decimal point. If there is only one # to the left of the decimal point and the number is negative and less than 1, 
BASIC prints the minus sign to the left of the decimal point instead of a zero. 
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For example: 


00010 PRINT USING “###.,4"%% .99 
00020 FRINT USING “"#0#2.4"5.1 
00030 FRINT USING "4#.#"9-.1 


REALY 
RUNNH 
1.0 
O.1 
— ¢ 1 


4.2.3. Printing a Number That is Larger Than the Field 

If you have not reserved enough digits for a number, BASIC prints a percent sign (%) followed by the number and 
ignores the format specified by the field. After BASIC prints the number, it completes the rest of the PRINT 
USING statement, in the usual manner. Consider the following example: 


00010 PRINT USING "id. #8" 256.786 
00020 FRINT USING "##,#4"»256.786 


REALTY 
RUNNH 
26679 
m% 296+786 


The number at line 10 is printed correctly (with rounding). In line 20, there are only 2 #’s to the left of the decimal 
point; therefore, the number will not fit. The number is printed in the usual PRINT statement format, with a space 
before and after it. But in this case, the number is preceded by a percent sign. 


Be sure to enter one number sign for every number that will print on the left side of the decimal point. Add one 
more number sign in case the number is negative. (For another method of reserving a place for the minus sign, see 
Section 4.2.4.1.) 


Field There are enough places for But not enough places for 
HHH HH 100.569 %- 100.569 
HH 1258 %o- 12579 


A number can also be larger than its field, because-rounding increases the number of places needed. For example: 


00010 FRINT USING ".###"y .999 
00020 FRINT USING °.##"» «999 
00030 FRINT USING "4.44", . 999 


REATIY 
RUNNH 
999 

tr O6P99 
1400 
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4.2.4 Printing Numbers With Special Symbols 


4.2.4.1 Printing Numbers With a Trailing Minus Sign — To print the minus sign for negative numbers after the 
number instead of before it, specify a trailing minus sign in a field. The trailing minus sign is often used to indicate a 
debit but can be used with any number. You must use the trailing minus sign to print a number in an asterisk fill or 
floating dollar sign field (see Sections 4.2.4.2 and 4.2.4.3). 


If a field contains a trailing minus sign, BASIC prints a negative number as the number followed by a minus sign, and 
prints a positive number as the number followed by a space. 


Consider the following examples. 


Standard Fields 


Fields with Trailing Minus Signs 


00010 FRINT USING "###,.#4#"%°10.54 00010 PRINT USING “#4#.##--"7-10.54 
00020 FRINT USING "#44.402°,10.54 00020 PRINT USING “##.##-",10.54 


REALLY 

RUNNH 

~-10.54 
10.54 


READY 
RUNNH 
10 + w4- 
10.54 


4.2.4.2 Printing Numbers in Asterisk Fill Fields — To print a number with asterisks (*) filling up any blank 
spaces before the first digit, start the field with two asterisks. For example: 


00005 PRINT USING *XXK#4#.4#" ,1,.2 


00010 PRINT USING "XXK#4.##", 


274699 


00020 PRINT USING “X*kK##,.,##",107 
00030 FRINT USING "XkK##,.##",1007.5 


READY 
RUNNH 
KKK1.20 
KK27 495 
K107.00 
1007.50 


Note that the asterisks reserve two places as well as cause asterisk fill. 


To print a negative number in an asterisk fill field, specify a trailing minus sign in the field. For example: 


00010 FRINT USING "X*##,#4#-" 
00020 PRINT USING "*xk##.##-" 
00030 PRINT USING "xK#d.##-" 


REALTY 
RUNNE 
KK27 2.95 
K107,.00- 
1007.50- 


927499 
y-107 
¥-1007.5 


If you attempt to print a negative number in an asterisk fill field without a trailing minus sign, BASIC prints a fatal 


error message. 
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4.2.4.3. Printing Numbers With Floating Dollar Signs — To print a number with a dollar sign ($) before the first 
digit, start the field with two dollar signs. If a negative number is desired, end the field with a trailing minus sign. 
Consider the following example: 


00010 
00020 
00030 
00040 
00050 


PRINT 
FRINT 
FRINT 
FRINT 
FRINT 


USING 
USING 
USING 
USING 
USING 


"S$EE. EE" 77.44 
“S$E#. $$" 7304.55 
"SSF. €#F" x 2211,42 
"$SEE,##-",-125.6 
"“S$EE. EE" 9127.82 


REATLY 

RUNNH 
$77+444 
$304.55 

“” 2211.42 
$125.60~ 
$127.82 


Note that $$ reserves places for the dollar sign and one digit; the $ is always printed. Contrast this with the asterisk 
fill field where asterisks are printed only if there are leading spaces. 


If you attempt to print a negative number in a dollar sign field without a trailing minus sign, BASIC prints a fatal 
error message. 


4.2.4.4 Printing Numbers With Commas — To insert commas in a number, place a comma anywhere in the 

format field, to the left of the decimal point (if present). There is one space allocated in the output field for each 
comma, regardless of where the comma appears in the format field. BASIC then prints a comma every third digit to 
the left of the decimal point. Commas, in the format field, to the right of the decimal point, are treated as literals. If 
there is no digit to be printed to the left of the comma, BASIC does not print the comma. For example: 


00010 
00020 
00030 
00040 
00050 


PRINT 
FRINT 
PRINT 
FRINT 
PRINT 


USING 
USING 
USING 
USING 
USING 


"$$ > $94", 10000 

"“##y $44" 759 

"$$Hy FEE, $F" 25694.3 
"KK y FFE Y 7QS9 
"$EEEs FLEE  y 25239 


00060 ENT 
READY 
RUNNH 
197000 

739 
$257694.30 
KK7 9259 
259239 .00 


4.2.5 Printing Numbers In E (Exponential) Format 

To print a number in E (exponential) format, place four circumflexes (~~~~ also called up-arrows) at the end of the 
field. The “~~~ reserve space for the capital letter E followed by a space or minus sign (which indicates a positive or 
negative exponent, respectively) and then the exponent. In exponential format the digits to the left of the decimal 
point are not filled with spaces. Instead the first nonzero digit is shifted to the left-most place and the exponent is 
adjusted to compensate. 
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Consider the following example: 


OOOLO FRINT USING "FEE, FETCTCT SS & 
00020 PRINT USING "HE. FETT TN Ty L000 


REALY 
RUNNH 
I00.,O00E-O2 
100.00E+0O1 


If you use fewer than 4 carets, the number is not printed in E format but the carets are printed as a literal. If you 
use more than 4 carets, the number prints in E format but the extra carets are also printed. For example: 


00010 PRINT USING "###.#8°°7"', 5 
00020 PRINT USING "BEE, #850777 S 


READY 
RUNNH 
30 OQOT™™ 


3O0.00E-02" 
Exponential format cannot be used with asterisk fill, floating dollar sign, or trailing minus formats. 


4.2.6 Fields That Exceed BASIC’s Accuracy 
If a field contains more places than there are digits of accuracy, BASIC prints zeros in all the places following the 
last significant digit. See the User’s Guide for the number of digits of accuracy in your system. 


4.3. PRINTING STRINGS WITH THE PRINT USING STATEMENT 

By using the PRINT USING statement, you can specify whether strings are printed in a left-justified, right-justified, 
centered format or extended format. String fields start with a single quotation mark (’). The single quotation mark 
is optionally followed by a contiguous series of uppercase L’s, R’s, C’s, or E’s representing left-justified, right- 
justified, centered, and extended string fields, respectively. 


If a string is larger than the string field, BASIC prints as much of the string as fits and ignores the rest. The only 
exception is extended fields, in which case BASIC prints the entire string. 


4.3.1 One-Character String Fields 
A string field consisting of only a single quotation mark or a single exclamation point is a 1-character string field. 
BASIC prints the first character of the string expression corresponding to a 1-character string field and ignores all 
following characters. For example: 


00010 FRINT USING "’*» “ARCTE" 


READY 
RUNNH 
A 


4.3.2 Printing Strings in Left-Justified Format 

If you specify a left-justified field, BASIC prints the string starting at the left-most position. If there are any unused 
places, BASIC prints spaces after the string. If there are more characters than places, BASIC truncates the string and 
does not print the excess characters. 
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A left-justified field is composed of a backslash or a single quotation mark followed by a series of capital L’s. 
For example: 


00010 FRINT USING "’LLLLLL"» "ABCTI" 
00020 FRINT USING “’LLLL"» "ARC" 
00030 PRINT USING "’LLLL"» °12345678" 


REATIY 


ARCH 
ABC 
12345 


4.3.3 Printing Strings In Right-justified Format 
If you specify a right-justified field, BASIC prints the string so that the last character of the string is in the right 
most place of the field. If there are any unused places before the string, BASIC prints spaces to fill the field. 


A right-justified field is composed of a single quotation mark followed by a series of capital R’s. For example: 


QO0010 FRINT USING *°’RRRRRR"» "ABCI" 
00020 FRINT USING "’RREERER" » "A® 
00030 FRINT USING “’RRRRRER" » "XYZ" 


REATIY 


ABCI 
A 
XYZ 


If there are more characters than places, BASIC left-justifies the string and does not print the excess characters. 


4.3.4 Printing Strings In Centered Fields 

If you specify a centered field, BASIC prints the string so that the center of the string is in the center of the field. If 
the string cannot be exactly centered, such as a 2-character string in a 5-character field, BASIC prints the string one 
character off center to the left. 


A centered field is composed of a single quotation mark followed by a series of capital C’s. For example: 


OO010 PRINT USING "’CCCCCCC* + "A" 
00020 PRINT USING “’CCCCCCE"s "Ak*® 
00030 FRINT USING "’CCCCCCC": "ARC" 
00040 FRINT USING "’CCCCCCC"» "ABCI" 
00050 FRINT USING “’CCCCCCC"s "ABCKE" 


REALLY 


A 
AR 
AERC 

ABCT 


ABCHE 


If there are more characters than there are places in the field, BASIC left-justifies the string and does not print the 
excess characters. 


Formatted Output — The PRINT USING Statement 


4.3.5 Printing Strings In Extended Fields 

The extended field is the only field that automatically prints the entire string. If you specify an extended field, 
BASIC left-justifies the string as it does for a left-justified field. But, if the string has more characters than there are 
places in the field, BASIC extends the field and prints the entire string. This extension may cause other items to be 
misaligned. 


An extended field is composed of a single quotation mark followed by a series of capital E’s. 


Consider the following example that uses extended, left-justified, right-justified, and centered fields. 


FRUS.B20 
Fridays May 20» 1977 17351345 
00010 FRINT USING “/’LELLLLLLLIL“» "THIS TEXT" 
00020 PRINT USING "/LLLLILLELLELLLLL"» “SHOULD FRINT ’ 
00030 PRINT USING "/’LLLLLLLLLLLLLL®° +» "AT LEFT MARGIN" 
00040 FRINT USING "“’RRRR" + “Lly273¥4" 
00050 PRINT USING "“’RRER" 9 "1Lly293" 
00060 FRINT USING "“’RRRER"y "12" 
00070 FRINT USING "‘“RRERR", "1" 
00080 PRINT USING "“CCCCCCCCC", "A" 
00090 FRINT USING "“’CCCCCCCCC"» "ABC" 
00100 FRINT USING "’CCCCCCCCC"s, "ARCHIE" 
00110 FRINT USING *’CCCCOCCCCC"»s "ABCTEFG" 
00120 FRINT USING "’CCCCCCCCO"» "AERCKEFGHI ® 
00130 FRINT USING "“LLLLLLLLLLLLLLLLE"*» "YOU ONLY SEE HALF OF THE LINES 
00140 FRINT USING "‘E"»"*YOU CAN SEE ALL OF THE LINE WHEN EXTENDED 
00150 END 
READY 
RUNNE 
THIS TEXT 
SHOULT FRINT 
AT LEFT MARGIN 
Ly2r3 
Ls2¥3 
1r2 
1 
A 
ABC 
ABCDE 
AECIIEFG 
ABCDEFGHI 


YOU ONLY SEE HALF 
YOU CAN SEE ALL OF THE LINE WHEN EXTENDED 


READY 
4.4 SUMMARY OF PRINT USING FORMAT 


Table 4-1 Format Characters For Numeric Fields 


decimal point and proceeding from right to left. 
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Table 4-1 (Cont.) Format Characters For Numeric Fields 


Effect on Format 


** two asterisks Cause leading asterisks to be printed before the first digit instead of spaces. The 
field formed is called an asterisk fill field. They also reserve places for two digits. 


$$ two dollar signs Cause a dollar sign to be printed before the first digit. The field formed is called 
a dollar sign field. They reserve places for one dollar sign and one digit. 


***“" four circumflexes Cause number to be printed in E (exponential) format. They also reserve four 
(up-arrows) places for the E notation. 


- minus sign Causes a trailing minus sign to be printed when number is negative. Printing a 
negative number in an asterisk fill or a dollar sign field requires that the field also 
have a trailing minus sign. 





ARAMA 


Note that neither $$ nor ** can be combined with 


For example: 


Valid Fields Sample Output Description 

SS HEH. FHF $1234.50 Dollar sign field 

ee TE icine O° Asterisk fill field 

HH 1,242 Comma in field 

HHA” 20.72E-02 E (exponential) format field 
Invalid Fields Reason 

wae BOO ** can not be combined with ~*~* 

FHF Comma is to the right of the decimal point 

S$ ** RH Ht $$ can not be combined with ** 


String fields are composed of a single quotation mark optionally followed by a series of contiguous capital L’s, R’s, 
C’s, or E’s. The effect these characters have on the format is described in Table 4-2. 


Table 4-2 Format Characters for String Fields 


’ single quotation mark or Starts string field and reserved place or one character. 
! exclamation point (apostrophe) 


L upper case L Causes string to be left-justified and reserved place for one character. 
\\ or 2 backslashes 


R upper case R Causes string to be right-justified and reserves place for one character. 


C upper case C Causes string to be centered in field and reserves place for one 
character. 


E upper case E Causes string to be left-justified, expands field, as necessary, to print 
the entire string and reserves place for one character. 
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4.5 THE IMAGE STATEMENT 
The IMAGE statement has the following format: 


‘unquoted string 
or 
IMAGE unquoted string 


where: 


unquoted string is the format for printing characters listed in the PRINT USING statement. 


are interchangeable. 
IMAGE 


For example: 


COO1LO: ##.#F £4, 44 
00020 PRINT USING 10% 12,34S59-12.5 


READY 
RUNNH 


All characters following the colon (or word IMAGE) except the line terminator are considered part of the output 
image. 


The IMAGE statement must be the only statement on a line. No comment fields are allowed. You can, however, 
continue an image to another line with an ampersand (&) see Section 1.3.1. BASIC continues the line until it finds a 
line terminator without an ampersand preceding it. 


IMAGE is a non-executable statement, therefore, BASIC ignores the IMAGE statement until a PRINT USING state- 
ment appears in the program. 


You can also use an IMAGE statement with string formats: 


OOO10: ++ “’CCCC ++ “LLLL 
00020 INFUT A$ 

O0O030 IF A$ = "STOF" GOTO SO 
00040 FRINT USING 10» At» AS 
00050 ENT 


READY 
RUNNH 
? ARCTIE 
++ ARCKE +4 ARBCIE 


4.6 PRINT USING STATEMENT ERROR CONDITIONS 

There are two types of PRINT USING error conditions, fatal and warning. When a fatal error occurs, BASIC stops 
executing the program and prints a fatal error message. When a warning is present, BASIC continues to execute the 
program, although the resulting output may not be in the format intended. 
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4.6.1 Fatal Error Conditions 
A fatal error message is produced if: 


The format string is not a legal string expression. 

There are no valid fields in the format string. 

A string is printed in a numeric field. 

A number is printed in a string field. 

A negative number is printed in a floating dollar sign or asterisk fill field that does not specify a trailing 
minus. 


aA BWN 


4.6.2 Warning Conditions 
Warning error conditions are: 


1. A number does not fit in the field. If a number is larger than the field allows, BASIC prints a percent sign 
(%) followed by the number in the standard PRINT format. 

2. A string does not fit in the field. If a string is larger than any field other than an extended field, BASIC 
truncates the string and does not print the excess characters. 

3. A field contains an illegal combination of characters. If a field contains an illegal combination of charac- 
ters, the first illegal character and all characters to its right are not recognized as part of the field. They 
may form another valid field or they may be considered text. If the illegal characters form a new valid 
field, this field may cause a fatal error condition. 


Consider the following examples of illegal combinations of characters in numeric fields. 


Illegal Combinations 
00010 PRINT USING "$$kX##, ##°95.417%14.30 


READY 
RUNNH 


$5XK16.30 


$$ are combined with **. $$ is a complete field and **##.4 forms a second valid field. $5 is printed by 
$$ and **16.30 is printed by **####. 


00010 FRINT USING "SSXxX##,.4# ‘°LLL" 25.412 "ABC" 


REALY 
RUNNH 


$5 


? 234 Numeric IMAGE srecified for a string sat line 00010 of MAIN FROGRA 
" : 


The same illegal combination appears here, but the next data item is a string. BASIC produces the fatal 
error message after trying to print the string ‘““ABC in the numeric field **##.#4. 


00010 PRINT USING "##.#°°""sS5.43E09 
REALTY 

RUNNH 

fe DeASETO™™ 


Field has only three not four. The number does not fit in the field ##.#, a % and the number are 
printed followed by the “~~ 
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00010 PRINT USING "‘’LLEEE"» "VWXYZ" 


READY 
RUNNH 
VWXEEE 


Two letters can not be combined in one field. 
EEE is printed as it is. 


Attempting to print characters as text produces errors when the characters form a valid field. For example: 
00010 FRINT USING "THERE ARE #4## # #% NAILS "12374714964 


is an attempt to print 


THERE ARE 123 # 4 NAILS 
THERE ARE 16 # 6 NAILS 


but instead produces 
THERE ARE 123 4 16 NAILSTHERE ARE & 


To correctly print characters that form a valid field, use a string field and place the characters as a string constant in 
the list. For example: 


00010 AS="THE BALANCE OF ACCOUNT ‘’##4 IS Shb44. Ee" 
00020 FRINT USING Ags *#%956349107-.56 


REALLY 
RUNNH 
THE BALANCE OF ACCOUNT #5434 IS $107.54 


This is also the only way to print a single or double quotation mark character with the PRINT USING statement. 
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CHAPTER 5 
CONTROL STATEMENTS 


5.1 TRANSFERRING CONTROL OF THE PROGRAM 
The following sections describe the statements that allow you to transfer control and change the sequence of 
execution. 


5.1.1 Unconditional Transfer — The GOTO Statement 
The GOTO statement causes control to be transferred to the statement that it identifies. 


The format of the GOTO statement is: 
GOTO line number 
where: 
line number is the next line to be executed. 


This line number can be smaller or larger than the line number of the GOTO statement. Therefore, you have the 
option to skip any number of lines in either direction. 


BASIC executes the statement at the line number specified by GOTO and continues the program from that point. 
Consider the example: 


39 GOTO 110 


When BASIC executes line 30, it branches control to line 110. BASIC interprets the statement exactly as it is 
written; go to line 110. It is a simple imperative instruction. 


Consider the following sample program with a GOTO statement: 


00010 A = 2 

Q0020 GOTO 40 
00030 A = SQRCAtI1A)D 
00040 FRINT Ar AKA 
O0O0S50 ENT 


REALTY 
RUINED 
es 4 


In this program, control passes in the following sequence: 


BASIC starts at line 10 and assigns the value 2 to the variable A. 
Line 20 sends BASIC to line 40. 

BASIC executes the PRINT statement. 

BASIC ends the program at line 50. 


Poe 


Notice that line 30 is never executed. 
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Make sure that the GOTO statement is either the only statement on the line or the last statement in a multi- 
statement line. If you place a GOTO in the middle of a multi-statement line, BASIC does not execute the rest of 
the statements on the line. For example: 


29 A = ATNCB2Z>)\GOTO SONFRINT A 
BASIC never executes the PRINT statement on line 25 because the GOTO statement transfers control to line 50. 


If you specify a non-executable statement in a GOTO statement such as a REM statement, BASIC transfers control 
to the next executable statement after the one specified. For example: 


00010 REM THIS IS AN EXAMPLE OF A GOTO 
00020 INPUT ArR 

00030 C = AXE 

00040 PRINT *C = AXB THE ANSWER IS “$C 
00050 GOTO 10 

00060 END 


READY 
RUNNH 
P22 


C = AXB THE ANSWER IS 50 


At line 50, BASIC transfers control to line 10. (Refer to Section 5.1.3 for the IF-THEN-ELSE statement.) Because 
line 10 is a non-executable statement (a remark), BASIC ignores it and transfers control to line 20. 


NOTE 
Before you use the GOTO statement, be sure you know 
how to stop your program from running in an infinite 
loop. Refer to your User’s Guide for this information. 


5.1.2 Multiple Branching — The ON-GOTO Statement 

The ON-GOTO statement is another means of transferring control within a program. Like the GOTO statement, 
ON-GOTO allows you to transfer control to another line of the program; however, ON-GOTO also allows you to 
specify several line numbers as alternatives, depending on the result of a numeric expression. 


The ON-GOTO statement has the following format:. 


GOTO ; 
ON numeric expression mine line number(s) 
where: 
numeric expression is any legal BASIC numeric expression. 
GOTO 
THEN are interchangeable keywords. 
line number(s) must be separated by commas. 


~ 


The ON-GOTO statement is also known as a computed GOTO because of its dependency on the value of the 
numeric expression. When BASIC executes the ON-GOTO statement, it first evaluates the numeric expression. The 
value is then truncated to integer (if necessary). If the value of the expression is equal to 1, BASIC passes control to 
the first line number in the list; if the value of the expression is equal to 2, BASIC passes control to the second line 
number in the list; and so on. This process continues until the list is exhausted, or there are no more values. If the 
value is less than 1 or greater than the number of line numbers in the list, BASIC prints an error message. 
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The following examples illustrate the ON-GOTO statement: 


O ON A 
O ON J 


hI 


Notice that the line numbers in the list can be in any order. The numeric expression is evaluated, and if the value of 
the expression is: 


1. control branches to the first line number specified. 
2. control branches to the second line number specified. 
3. control branches to the third number specified. 


Consider this example: 
200 ON A GOTO 39x207100%300 


If A=1, GOTO line 50 (first line number in the list) 
If A=2, GOTO line 20 (second line number in the list) 
If A=3, GOTO line 100 (third line number in the list) 
If A=4, GOTO line 300 (fourth line number in the list) 
If A<1 

or BASIC prints an error message 
If A>4 


5.1.3. Conditional Transfer — The IF-THEN-ELSE Statement 

The IF-THEN-ELSE statement provides a transfer of control depending on the truth of a conditional expression (see 
Section 2.4.3). 

The format of the IF-THEN-ELSE statement is: 


THEN )\ 


GOTO ( line number 


IF conditional expression 


Or 
IF conditional expression THEN statement(s) 


Or 


ved THEN line number 
ELSE 
IF conditional expression GOT a line number ELS ae of 


line number ) 


IF conditional expression THEN statement(s) ELSE conan f 


where: 


conditional expression can be any expression. It can also be a variable where the value 0 is false and any- 
thing else is true. 
statement(s) can be one or more BASIC statements including IF-THEN-ELSE. 
The IF-THEN-ELSE statement gives you several choices: you may specify a conditional transfer of control to 


another statement line, or you may cause another statement to execute without transferring control, depending on 
the truth of a conditional expression. 


5-3 


Control Statements 


If the value of the conditional expression is true, BASIC transfers control to the specified line number (as in the first 
format) or executes the statements following the THEN (as in the second format). If the relation is not true, the 
next executable statement following the IF-THEN-ELSE statement is performed. For example: 


20 IF A = 3 THEN 200 


If A is equal to 3 (the relation is true), control passes to line 200. If A is not equal to 3, control does not pass to line 
200. Instead, control passes to the next sequential instruction after line 20. 


Here is a complete program illustrating the IF-THEN-ELSE statement: 


O0010 FRINT “INFUT VALUE OF A"sNINFUT A 

00015 FRINT "INFUT VALUE OF EB" 3NINFUT & 

00020 IF A O ANID & = 0 THEN 80 

00030 IF A BR THEN FRINT "A EQUALS EB"\GOTO 735 
00040 IF A «= B THEN 40 

00050 PRINT "B IS LESS THAN A"\GOTO 75 

00060 FRINT "A IS LESS THEN KE" 

O0075 IF AXE ==BX(BRt+1) THEN LET 04 = 4tANGOTO 106 


00080 END 

REATIY 

RUNNH 

INFUT VALUE OF A ? 25 
INFUT VALUE OF & ? 43 


A IS LESS THEN & 


If you include the ELSE clause, as in the third format, BASIC executes the ELSE clause if, and only if, the THEN or 
GOTO clause preceding it is not executed. This means that if the conditional expression is false, BASIC executes the 
ELSE clause. 


The following example illustrates the ELSE clause: 


10 IF Az=90 THEN GS = "A"& 
ELSE IF A>=80 AND ASO THEN Gt = "BK" 
ELSE IF As=70 ANT A80 THEN G& = "CC". 
ELSE IF A>=60 ANT A700 THEN GS = "0"s 
ELSE GS = "F* 


You can also use string expressions as in this example: 
300 IF C8 = "OUTFUT" GOTO 10 


If the value of the string variable C$ is equal to the string “OUTPUT”, control passes to line 10. See Section 2.4.2 
for string expressions. 


Care should be taken placing the IF-THEN-ELSE statement in a multi-statement line. The following rules govern the 
transfer of control: 


1. Execution of the physically last THEN or ELSE clause determines the execution of the rest of the state- 
ments on the line. If the THEN or ELSE clause is executed, the next statement or statements following it 
are executed. If the THEN or ELSE clause is not executed, the statements following it are not executed, 
and control passes to the next line number. 


5.4 


Control Statements 


For example: 


O000S INFUT A . 

00010 IF A = 1 THEN FRINT AS\FRINT “TRUE CASE"\GOTO 20 
OOO1S PRINT "NOT = 1" 

00020 ENT 


If A is equal to 1, BASIC prints: 
RUNNH 
? 4 
1 TRUE CASE 
Because the relation is true, BASIC executes the rest of line 10, which includes a branch to line 20. 
If A is not equal to 1, BASIC prints: 
RUNNH 
Tos 


NOT = 1 


Because the relation is false, BASIC skips the rest of the statements on line 10 following the keyword 
THEN and proceeds to execute line 15. 


. All other THEN or ELSE clauses are considered to be followed by the next line of the program: 


OOO10 INFUT As kyl 

00020 IF Ask THEN IF BC THEN PRINT "REC*\GOTO 30 
00025 FRINT "A=B* 

00030 END 


The statement GOTO 30 is executed only if A is greater than B and B is less than C. If A is either less than 
or equal to B or B is greater than or equal to C, then line 25 is executed: 


RUNNH 
P LO0915%20 
Azk 


If the statement following the THEN or ELSE clause is a FOR statement (FOR modifier is not permitted, 
Section 6.1.5), you must include the corresponding NEXT statement in the same THEN or ELSE clause. 
For example: 


10 IF A = 3 THEN FOR X = 1 TO LONECXD=RCXDKANNEXT X & 
ELSE FOR X = 1 TO LONBCX)=BCXOFOCN\NEXT X 


5.2 EXECUTION OF LOOPS 

A loop is the repeated execution of a set of statements. Placing a loop in a program saves you from duplicating and 
enlarging a program unnecessarily. The following section describes how to build a loop with the FOR and NEXT 
statements. 


5.2.1 The FOR and NEXT Statements 

Without some sort of terminating condition, a program can run through a loop indefinitely. The FOR and NEXT 
statements allow you to design a loop wherein BASIC tests for a condition each time it runs through the loop. You 
decide how many times you want the loop to run, and you set the terminating condition. 
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The FOR statement has the following format: 


FOR variable = num expr 1 TO num expr 2 [STEP num expr 3] 


where: 
variable is a numeric variable known as the loop index. 
num expr | is the first numeric expression — the initial value of the index. 
num expr 2 is the second numeric expression — the maximum value of the index. 


STEP and num expr 3 are the incremental value of the index. The STEP size is optional; if specified, it can be 
positive or negative. If not specified, the default is +1. 


BASIC evaluates all numeric expressions in the FOR statement before assigning a value to the loop variable. For 
example: 


10 T = 3 
20 FOR M = 10KT TO 3OXT STEF T 
30 NEXT M 


M is given the initial value of 30, and BASIC tests to determine if M is less than or equal to the terminating value of 
90. The loop is executed because M is less than 90. When the NEXT statement is encountered, the value of M is 
incremented by 3. BASIC tests again to see if M is greater than or equal to 90. When the value of M is greater than 
90, control passes to the statement following the NEXT statement. 


The NEXT statement has the following format: 
NEXT numeric variable(s) 
where: 


numeric variable(s) must be the same variable named in the corresponding FOR statement. With multiple 
variables, the last loop variable must be specified first. Refer to Section 5.2.2 for 
nested loops. 


The FOR and NEXT statements must be used together. If you use one without the other, an error condition results. 
The FOR statement defines the beginning of the loop; the NEXT statement defines the end. You are actually 
building a counter into your program to determine the number of times the loop is to execute. 


Place the statements you want repeated between the FOR and NEXT statements. Consider the following example: 


00010 FOR I = 1 TO 10 
00020 FRINT I 

00030 NEXT I 

00040 FRINT I 

OOOSO END 


In this program, the initial value of the index variable is 1. The terminating value is 10, and the STEP size is +1 
(the default). 
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Every time BASIC goes to line 30, it increments the loop index by | (the STEP size) until the terminating condition 
is met. Therefore, this program prints the values of I ten times. When the loop is completed, execution proceeds to 
line 40. The following is the resulting output. 


RUNNH 
1 


OMnN & CDS GIN 


10 
10 


Notice that when control passes from the loop, the last value of the loop variable is retained. Therefore, I equals 10 
on line 40. 


You can modify the index variable within the loop: 


10 FOR I = 2 TO 44 STEF 2 
20 LET I 44 

30 NEXT I 

40 ENT 


The loop in this program only executes once because at line 20, the value of I is changed to 44 and the terminating 
condition is reached. 


If the initial value of the index variable is greater than the terminal value and the step size is positive, the loop is 
never executed. 


10 FOR I = 20 TO 2 STEF 2 


This loop cannot execute because you cannot decrease 20 to 2 with increments of +2. You can, however, accom- ' 
plish this with decrements of -2. 


10 FOR IT = 20 TO 2 STEF ~-2 
The STEP size can also be a number with a fractional part: 
10 FOR K = 1.5 TR 7.7 STEFF 1,32 


NOTE 
You should not transfer control into a loop that has not 
been initialized with a FOR statement. The results will 
be unpredictable. The following is not recommended in 
a BASIC program: 


10 REM THIS IS A FOOR FROGRAM 
20 GOTO 40 

30 FOR I = 1 TO 20 

4O PRINT I 

30 NEXT I 

60 END 
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Line 20 transfers control to line 40, bypassing line 30. This is illegal in BASIC. 
You can place the FOR and NEXT statements anywhere in a multi-statement line. For example: 


10 FOR I = 1 T0 10 STEF SNFRINT "2 = "SINNEXT I 
20 END 
RUNNH 
I 


1 
I é 


The calculation of the index values (initial, final, and step size) is subject to precision limitations inherent in the 
computer. These index values are represented in the computer by binary numbers. When the values are integer, 
they can be represented exactly in binary; however, it is not always possible to represent decimal values exactly 
in binary when they contain a fractional part. Consider the following example: 


00020 FOR X = 0 TO 10 STEF 0-1 
00030 A = 7S\B = 473\ C = A/B 
00040 FRINT *THE ANSWER IS "5C 
00050 NEXT X 

00060 END 


The loop established in line 20 executes 100 times instead of 101 because the internal value of 0.1 is not exactly 0.1. 
After the 100th execution of the loop, X is not exactly equal to 10. It is slightly larger than 10, so the loop stops. 
Whenever possible, it is advisable to use indices that have integer values which ensure that the loop is executed the 
correct number of times. 


Note that changing the termination value of a loop within the loop has no effect. For example: 


00010 K = 10 

00020 FOR I = 1 TOK 
00030 K = 5 

00040 PRINT I3 

00050 NEXT I 


READY 
RUNNH 
1 2 3 4 5 6&6 7? 8 Y 10 
READY 


5.2.2 Nested Loops 

A loop can contain one or more loops provided that each inner loop is completely contained within the outer loop. 
Using one loop within another is called nesting. Each loop within a nest must contain its own FOR and NEXT state- 
ments, and the inner loop must terminate before the outer loop, i.e., the one that starts first must be completed last. 
Loops cannot overlap. 
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The following example shows legal and illegal forms of nested loops: 


LEGAL LEGAL 
10 FOR A = 1 TO 10 10 FOR A = 1 TO 
20 FOR B = 2 TO 20 20 FOR B = 2 TO 

32 NEXT B 30 NEXT & 

40 NEXT A AO FOR C = 3 TO 
SO FOR tt = 4 TO 
cs: FOR E = 5 TO 
70 NEXT E 
80 NEXT I 
90 NEXT C 
100 NEXT A 


The following is a program with a nested loop: 


00010 FRINT Lig 
00015 FRINT 
00020 FOR I = 1 TO 2 
00030 FOR J = 1 TO 3 
00040 FRINT IyvJ 
00050 NEXT J 
00060 NEXT I 
00070 ENT 
REATY 
RUNAH 

I J 

1 1 

1 x 

1 3 

aoe 1. 

yas x 

2 3 


0 


1 
20 


30) 
40 


JQ 


f 


ILLEGAL 
10 FOR M = I 
2O FOR N = 2 
30 NEXT 
AQ NEXT N 


FOR and NEXT statements are commonly used to initialize arrays as illustrated in this example: 


Q00O005 DIM X(Ss10) 
00010 FOR A = 1 TO & 
00020 FOR & = 2 TO 10 STEF 2 
00030 X(AxK) = AtE 
O0040 NEXT BeA 
QOOOSS PRINT X(S+s10) 
00060 ENT 
REALTY 
FUN EH 
15 
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5.2.3. The Conditional FOR Statement 
Another method of creating loops in a program is by using the Conditional FOR statement. The Conditional FOR 
statement has the following format: 


FOR variable=num expr | hey ' num expr 2|| heer conditional expr 


BY UNTIL 
where: 
variable is a numeric variable 
num expr! is the first numeric expression which determines the initial value of the index. 
STEP num expr2 increments the value of the index variable. This is optional. The default is +1. 
WHILE is the condition tested. The expression can be a relational or logical expression. 
UNTIL 


This form of loop is similar to the normal FOR statement. The difference lies in the termination test for the loop. 
Each time the loop is about to begin, BASIC evaluates the conditional expression and tests it for its truth value. The 
loop terminates if the conditional expression is true and the clause is an UNTIL clause, or if the conditional expres- 
sion is false and the clause is a WHILE clause. The NEXT statement is also required with this form of the FOR 
statement. 


When BASIC exits from the conditional loop, the value of the loop variable is the value that terminates the loop. 


When the normal FOR-NEXT loop terminates, the value of the loop variable is the last value used in the FOR state- 
ment, not the terminating value. Consider the following example: 


LIST 


v~12.R20 


May 24% 1977 15355320 


Tuesday» 

00010 FOR I = 1 TO 10 

00015 FRINT I; INORMAL FOR LOOF 

00020 NEXT I 

00025 PRINT "IT = “$I 

00030 FOR I = 1 UNTIL [210 !CONDITIONAL FOR LOOF 

00035 FRINT Is 

00040 NEXT I 

00045 FRINT "I = “si 

00050 ENT 

REALTY 

RUNNH 
1 2? 3 4 S&S &6 7 8&8 9 146 T = 10 
1 2 3 4 & & 7? $8 FY 107 = ii 

REATIY 


Both loops print the numbers | through 10. Notice, however, the difference in the values of I. When the first loop 
terminates, the loop variable is set to the last value BASIC used (10). In the second loop beginning on line 30, the 
loop variable is set to the value which caused the loop to terminate (11). 
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The following example illustrates the WHILE clause: 


OO010 FOR I = 1 WHILE Tio 
O0015 FRINT TI» 
O00020 NEXT I 
00025 FRINT "I “9 I] 
00030 ENT 
REATLY 
RUNNH 
1 2 3 4 %S 6&6 7? 8B Y IT = 10 


5.2.4 The FOR Statement With Additional Test 
The FOR statement with an additional termination test has the following format: 


em STEP WHILE ve 

FOR variable=num expr 1 TO num expr 2 es : num expr 3 | feed conditional expr 
where: 

variable is a numeric variable (loop or index variable). 

num expr | is the initial value of the index variable. 

num expr 2 is the terminating value of the index variable. 

STEP num expr 3 is the increment value of the index. This is optional; the default is +1. 

BY 

WHILE conditional expr is a logical or relational expression. This is the additional termination test. 

UNTIL 


This type of loop is equivalent to the normal FOR-NEXT statements except for the addition of the conditional test. 
Each time BASIC encounters the NEXT statement, the loop variable is incremented. After incrementing the loop 

_ variable, BASIC checks the index variable to see if the TO expression has been exceeded. If the TO expression has 
not been exceeded, BASIC checks the conditional expression. The termination test on the conditional expression is 
_ the same as on the Conditional FOR statement, Section 5.2.3. 


Consider the following example: 


00010 Y = QO 
00020 FOR I = 1 TO 190 
OO030 FRINT I3 INORMAL FOR LOOF 
00040 Y = I 
QO0030 NEXT I 
00060 FRINT "I = "$I : 
00070 FOR I = 1 TO 10 UNTIL Y = 10 TFOR WITH ADULT IUNAL TEST 
00080 FRINT I5 
00090 Y = I[xX2 
00100 NEXT I 
OO110 FRINT "I "9 
00120 ENT 
REATY 
RUNNE 
1 2 3 4 S&S & F 8 ? 10 IT = 190 
123.4 5 6t2 7 
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5.2.5 WHILE And UNTIL Statements 
The WHILE and UNTIL statements have the following format: 


WHILE conditional expression 
UNTIL conditional expression 
where: 
conditional expression is any numeric, logical, or relational expression. 


Like the FOR statement, the WHILE and UNTIL statements require a corresponding NEXT statement. However, 
the NEXT statement, in this case, does not contain a variable. 


The expression is evaluated before each loop iteration. If the expression is true, BASIC executes the statements 
within the loop. If the expression is false, BASIC executes the statement following the NEXT statement. For 


example: 


00010 WHILE AX<10% 
00020 LET AZ = AX4LIX 
00030 FOR IX = 1 TO & 
Q0040 NEXT IX 

00045 NEXT 

00050 FRINT Ax 

00060 ENT 


As long as A% is less than 10%, BASIC will execute the statements within the loop. 


With the UNTIL statement, the loop executes until the expression is true. For example: 


00010 I = 12 
00020 UNTIL I = 0 


00030 FRINT I+ 
00040 I = I-1 
00050 NEXT 


5.3. TIME LIMITS 
BASIC provides statements to suspend program execution for a specified amount of time. These statements are 


SLEEP and WAIT. 


5.3.1 The SLEEP Statement 
The SLEEP statement has the following format: 


SLEEP numeric expression 


where: 


numeric expression is the number of seconds to delay further execution of the program or subprogram 
(Chapter 11). 


For example: 


10 SLEEP 12010 
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At the end of 1200 seconds (20 minutes) BASIC continues execution. 
To awaken a job from a SLEEP state before the specified number of seconds has elapsed, type a line terminator. 


5.3.2 The WAIT Statement 
The Wait statement has the following format: 


WAIT numeric expression 
where: 


numeric expression specifies the maximum number of seconds allowed for all future input from the 
terminal before an error condition is signalled. 


For example: 
10 WAIT 490 


BASIC will wait 60 seconds for input before issuing an error message. 


The WAIT statement is used in conjunction with the INPUT statement so that you can set time limits for responses 
to your program. 


A WAIT statement with a value of 0 or no value, indicates that no WAIT error condition exists no matter how long 
it takes for aresponse. Thus, WAIT 0 turns off a previous WAIT. 


You must place the WAIT statement before the respective INPUT statement. For example: 


00010 WAIT 15 
00020 INFUT AvEsC 
00030 fi = AXE/C 
00040 FRINT If 


BASIC waits 15 seconds for a response to the INPUT statement. Ifno response is typed, BASIC prints an error 
message. ; 


5.4 STOPPING PROGRAM EXECUTION — THE STOP AND END STATEMENTS 
There are three methods of halting program execution: 


1. Executing all the statements 
2. Using the STOP statement 
3. Using the END statement 


The first method is shown in the following example. The program executes completely and then BASIC closes all 
files: 


10 FOR I = 1 TQ 10 
2O FRINT I 
30 NEXT I 


The STOP statement has the following format: 


STOP 
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This statement causes program execution to halt, at which point BASIC prints a message: 
STOP AT LINE n 

where: 
n is the line number of the STOP statement. 


You can place several STOP statements at various points in a single program. The flow of logic can then be seen 
throughout the program. This is a useful debugging tool in determining program flow in large programs. 


The STOP statement halts execution but it does not close files. To cause BASIC to close files at program termina- 
tion, use the END statement. 


The END statement has the following format: 

END 
The END statement is optional unless subprograms are in the same program. See Chapter 11 for information on sub- 
programs. If you include an END, it must have the largest line number in the main program. Any reference to an 


END statement via a GOTO or IF-THEN-ELSE statement terminates program execution and closes all files. 


An END statement does not cause BASIC to print a message on the terminal. If a message is desired, use the STOP 
statement. 


If you do not include a STOP or an END statement in a program, the execution of the last statement of the program 
terminates program execution and closes all files. 


The following examples show all three options of ending a program: 


O0010 READ AvyByl 


00020 PRINT "A = "FA 

00030 PRINT "E: = "$8 BASIC executes all statements 

00040 FRINT "C = "3C and closes all files. 

00050 TATA 100%300%450 

REATIY 

RUNNH 

A = JOO 

R= 300 

C= 450 

OOOLO REAL AsvyEByC | 

00020 FRINT “A = "3A 

QOO020 PRINT "ER = "$8 BASIC execuies aii statements 
00040 PRINT "C = "$C and stops execution at line 60. 
00050 TATA 100%300+450 Files are not closed. 
00060 STOF 

REALLY 

RUNNH 

A = 100 

R= 300 

C = 450 7 


STOF at line 00060 of MAIN FROGRAM 
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00010 READ AvyB»C 


00020 FRINT "A = "GA 
00030 FRINT "R = "9H BASIC executes all statements 
00040 FRINT "CC = "$C and closes all files. 


00050 DATA 10073009450 
00060 END 


REATY 
RUNNIH 
A = 100 
B= 300 
C= 450 


As you can see, the first and third examples have the same output. END is only necessary when you plan to refer- 
ence the end of the program with a transfer statement. 


5.5 SUBROUTINES 

Subroutines are like functions (Section 2.4.6) in that you reference them in another part of the program. However, 
unlike functions, you do not name a subroutine or specify an argument. Instead, you include the GOSUB state- 
ment, which transfers control of the program to a subroutine, and the RETURN statement, which returns control 
from that subroutine back to normal program execution. 


In BASIC, you can enter more than one subroutine in the same program. Subroutines are easier to locate (for 
debugging purposes) if you place them near the end of the program, before any DATA statements, and before the 
END statement (if present). Also, assign distinctive line numbers to subroutines. For example, if the main program 
has line numbers ranging from 10 to 190, begin the subroutines with line numbers 200, 300, 400 and so on. 


The first line of a subroutine can be any legal BASIC statement including a REM statement. Note that you do not 
have to transfer to the first line of the subroutine. Instead, you can include several entry points and RETURNs in 


and out of the same subroutine. Similarly, you can nest subroutine calls (one subroutine within another) up to a 
system defined limit. See your User’s Guide. 


The following sections describe the building of subroutines with the GOSUB and RETURN statements. 


5.5.1 The GOSUB and RETURN Statements 
When BASIC begins executing a program, it continues until it encounters a GOSUB statement. The GOSUB state- 


ment has the following format: 
GOSUB line number 
where: 


line number following the keyword GOSUB can be the first line of the subroutine or an entry point 
within the subroutine. 


BASIC transfers control to that line. For example: 
190 GOSUBR 200 
BASIC stops executing sequentially at line 10 and transfers control to line 200. BASIC executes the subroutine 


until it encounters a RETURN statement, which causes BASIC to transfer control back to the statement immedi- 
ately following the calling GOSUB statement. (A subroutine can exit only through a RETURN statement.) 
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The RETURN statement has the following format: 
RETURN 


Before transferring control to a subroutine, BASIC internally records the next sequential statement following the 
GOSUB statement. The RETURN statement is a signal to BASIC to return to the statement previously recorded. 
In this way, no matter how many subroutines there are or how many times they are called, BASIC always knows 
where to transfer control. For example: 


OO0010 INFUT Avkyl 

00020 GOSUR 40 

00030 FRINT ft 

00035 GOTO 7G 

00040 REM THIS [5 A SUBROUTINE 
O0050 T= A xX B- C 

00060 RETURN 

00070 END 


Line 20 sends BASIC to line 40; then line 60 returns execution to line 30. The resulting output is: 


RUNAH 


PF Svy1lOelS 


35 


The following is an example of several calls to the same subroutine: 


00010 TIM BC100) 
00020 GOSUER 60 

00030 GOSUB 60 

00040 GOSUE 40 

00050 GOTO 110 

00060 LET A = 0 
00070 FOR I = 1 TO & 
00080 LET A = ART) 
00090 NEXT I 

00100 RETURN 

00110 END 


The same subroutine on line 60 is called three times. Notice that only one RETURN statement is necessary. 


53.5.2 The ON-GOSUB Statement 
The ON GOSUB statement is used to conditionally transfer control to one of several subroutines or to one of 
several entry points into one or more subroutines. The ON-GOSUB statement has the following format: 


IX FU CIT TT. 4s 


ON numeric expression GOSUB iine number(s) 
where: 


numeric expression is any legal BASIC numeric expression. 


line number(s) a list of line numbers contained in the program, separated by commas. 


The ON-GOSUB statement works like the ON-GOTO statement (Section 5.1.2). When BASIC executes the 
ON-GOSUB statement, it first evaluates the numeric expression. The value is then truncated to integer, if 
necessary. 
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If the value of the expression is 
1, control passes to the first line number specified. 
2, control passes to the second line number specified. 
3 


, control passes to the third line number specified. 


and so on. If the expression is less than 1 or greater than the number of line numbers in the list, BASIC prints an 
error message to that effect. The following is an example of an ON GOSUB statement: 


20 ON AtE GOSUB 20073009120 
When A+B=1, go to the subroutine on line 200, (first line number in the list) 
A+B=2, go to the subroutine on line 300, (second line number in the list) 
A+B=3, go to the subroutine on line 120, (third line number in the list) 
(A+B)<1, print error message, 
(A+B)>4, print error message. 


The line numbers to which BASIC branches can be either the first line of a subroutine or an entry point to a 
subroutine. 


5.6 ERROR CHECKING 
Normally, BASIC detects errors while executing a program and either terminates execution or prints a warning mes- 
sage. These errors fall into two general categories: 


1. Computational errors 
2. Input and output errors 


However, if you plan ahead, you can prepare alternatives which can save you time in the event of an error. You can 
build an error-handling routine that is activated when, and if, BASIC finds an error. This routine takes control away 


from the normal system errors and gives it to your error-handling routine. 


5.6.1 ONERROR GOTO and RESUME Statements 
The ONERROR GOTO statement provides the means for trapping errors. This statement has the following format: 


ONERROR GOTO line number 
where: 
line number after the keyword GOTO specifies the beginning of the error-handling routine. 


This statement tells BASIC that a user error-handling routine exists beginning at the specified line number. The 
routine analyzes any input-output or computational error the program encounters and tries to recover from it. 


If an error occurs before BASIC executes the ONERROR GOTO statement, BASIC proceeds with normal system 
error handling. 


If an error occurs after the ONERROR statement has been executed, program execution is interrupted, and BASIC 
transfers control to your error routine. 


Control Statements 


During the execution of the error-handling routine, the variable 


ERR is set to one of the values listed in the error table (Table 5-1). 
ERL is set to the line number where the error occurred. 
ERN$ is set to the name of the program or subprogram being executed. 


If an error occurs within the user error-handling routine, the system error handler takes over. Within the error- 
handling routine, the ONERROR GOTO 0 returns error processing to the system. 


The Pilelaiiieans GOTO statement is local to the program, Ca (Chapter 11), or function in which it is con- 





ONERROR GO. 0 trod BACK 


ae this statements if an error occurs in a oRneton (Chanter oy or aberoEae (Chapter 1 1), BASIC c can ieherk the a 
caller of the function or subprogram for a user ecfor tanting routine. OE GO. ool: BACK dogs. not 

_ extend across a CHAIN boundary, Section 11.2.) _ Pee Ses ceed S 

You place the RESUME statement at the end of the error-handling routine. The RESUME statement has the follow- 
ing format: 


~ RESUME [[line number |] 


The RESUME acts like the RETURN statement. It returns to the program line that caused the error. A RESUME 
statement without a line number resumes execution at the beginning of the line where the error occurred. If the line 
contains multiple statements, BASIC usually resumes execution at the beginning of the line. However, if you have a 
DEF, FNEND, DIM, FOR, or NEXT statement in a multi-statement line, execution resumes: ! 


1. Right before the DEF statement 

2. Right after the FNEND statement 

3. Right after the DIM statement 

4. Right after the FOR, WHILE, or UNTIL statement. (The loop will not be reinitialized.) 
5. Right after the NEXT statement 


If you have two or all five of these statements in a multi-statement line, execution resumes at the last one 
encountered. 


If you specify a line number after the RESUME statement, BASIC resumes execution at the beginning of that line. 
For example, the following illustrates both methods: 


290 RESUME 
200 RESUME 25 


ane must eles to a line within the function or aibor ogram.. 


5.6.2 Error Table 
The following table lists the values of the variable ERR and the corresponding error messages. 


On the DECSYSTEM-20, execution resumes at the beginning of the line. 
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Table 5-1 Error Table 


BAD DIRECTORY FOR DEVICE 
















The directory of the device referenced is in an unread- 
able format. 
ILLEGAL FILE NAME The filename specified is not acceptable. It contains 
embedded blanks or unacceptable characters. 





ACCOUNT OR DEVICE IN USE 





The specified operation cannot be performed because 
the file is already open by someone else. This message 
has a general “‘file in use’’ meaning. 





NO ROOM FOR USER ON DEVICE Storage space allowed for the current user on the device 
specified has been used or the device as a whole is too 


full to accept further data. 





CAN’T FIND FILE OR ACCOUNT The file specified or current user account numbers were 
not found on the device specified. This message has a 


general “not here’’ meaning. 


NOT A VALID DEVICE Attempt to use an illegal or non-existent device. 


I/O CHANNEL ALREADY OPEN An attempt was made to open one of the I/O channels 
which had already been opened by the program. 


DEVICE NOT AVAILABLE The device requested is currently reserved by another 
user. 


1/0 CHANNEL NOT OPEN Attempt to perform I/O on one of the channels that 
has not been previously opened in the program. 


— 
© 


PROTECTION VIOLATION The current user is not allowed to perform the 
requested operation on the specified file. Input may 
have been requested from an output-only device or 
vice versa. This message has a general “can’t do that” 





meaning. 
11 END OF FILE ON DEVICE Attempt to perform input beyond the end of a date file. 


— 
bo 


FATAL SYSTEM I/O FAILURE An I/O error has occurred on the system level. The 
user has no guarantee that the last operation has been 
performed. 


— 
oe) 


USER DATA ERROR ON DEVICE One or more characters may have been transmitted in- 
correctly due to a parity error, bad punch combination 
on a card, or similar error. 


DEVICE HUNG OR WRITE LOCKED Check hardware condition of device requested. Pos- 
sible causes of this error include a line printer out of 
paper or high-speed reader being off-line. 


— 
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Table 5-1 (Cont.) Error Table 


KEYBOARD WAIT EXHAUSTED  — Time requested by WAIT statement has been 
exhausted with no input received from the specified 
keyboard. 


NAME OR ACCOUNT NOW EXISTS An attempt was made to rename a file with the name 
of a file which already exists, or an attempt was made 
by the system manager to insert an account code that 
is already within the system. 


TOO MANY OPEN FILES ON UNIT Only one DECtape output file is permitted per 
DECtape drive. Only one open file per magtape drive 


is permitted. 


PROGRAMMABLE ~C TRAP ON ERROR-GOTO subroutine was entered through a 


program trapped by means of control C. 


30 DEVICE NOT FILE-STRUCTURED An attempt is made to access a device, other than a 


disk as a file-structured device. This error occurs, for 
example, when the user attempts to gain a directory 
listing of a non-directory device. 


31 ILLEGAL BYTE COUNT FOR I/O The buffer size specified in the RECORDSIZE option of 


the OPEN statement does not match the I/O attempted. 


43 VIRTUAL ARRAY NOT ON DISK A non-disk device is open on the channel upon which 
the virtual array is referenced. 
MATRIX OR ARRAY TOO BIG In-core array size is too large. 
5 


4 VIRTUAL ARRAY NOT YET OPEN An attempt was made to use a virtual array before 





opening the corresponding disk file. 


ILLEGAL I/O CHANNEL Attempt was made to open a file on an I/O channel 





outside the range of legal channel. 


47 LINE TOO LONG Attempt to input a line longer than the buffer. 


48 FLOATING POINT ERROR Floating point overflow or underflow. If no transfer 
is made to an error handling routine, a 0 is returned as 
the floating-point value for underflow and the maxi- 
mum positive number for overflow. 


Value is outside of legal range. 


Attempt to use a number as an integer when that num- 
ber is outside the allowable integer range. If no transfer 
is made to an error handling routine, a O is returned as 
the integer value. 




















ARGUMENT TOO LARGE IN EXP 
DATA FORMAT ERROR 


INTEGER ERROR 


o 
50 
51 
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Table 5-1 (Cont.) Error Table 


52 ILLEGAL NUMBER Improperly formed input. For example, “1..2” is an 
improperly formed number. 

53 ILLEGAL ARGUMENT IN LOG Negative or zero argument to log function. Value 
returned is the argument as passed to the function. 


54 IMAGINARY SQUARE ROOTS Attempt to take square root of a number less than 0. 
If no transfer is made to an error handling routine, the 
| value returned is the square root of the absolute value 


of the argument. 


55 SUBSCRIPT OUT OF RANGE Attempt to reference an array element beyond the 
number of elements created for the array when it was 


dimensioned. 


p56 CAN’T INVERT MATRIX Attempt to invert a singular matrix. 


56 

57 OUT OF DATA A READ requested additional data from an exhausted 
DATA list. 

58 


ON STATEMENT OUT OF RANGE The index value in an ON GOTO or ON GOSUB state- 
ment is less than 1 or greater than the number of line 


numbers in the list. 


59 NOT ENOUGH DATA IN RECORD An INPUT statement did not find enough data in one 
line to satisfy all the specified variables. 


beyond implementation defined limits. 


61 DIVISION BY 0 Attempt by the user program to divide some quantity 
by O. If no transfer is made to an error handling 
routine, the largest positive number is returned as the 


> | INTEGER OVERFLOW, FOR LOOP The integer index in a FOR loop attempted to go 


result. 
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STATEMENT MODIFIERS 


6.1 MODIFYING STATEMENTS 
Another useful tool for building programs is the statement modifier. In BASIC, the statement modifier qualifies or 
restricts the execution of a statement; thus allowing you to: 


1. Indicate conditional execution of a statement 
2. Create an implied loop 


An implied loop built with a statement modifier iterates only one statement on a line. In cases where the FOR- 
NEXT statement loop is extremely simple, the necessity for both the FOR and NEXT statements is eliminated. 


BASIC provides five statement modifiers: 


he IE 

2. WHILE 
3. UNTIL 
4. UNLESS 
5. FOR 


These statement modifiers cannot stand alone; they must be appended to a statement. Most BASIC statements can 
be modified. There are some, however, that cannot be modified, and some that do not need to be modified. Table 
6-1 lists the various statements. 


When using statement modifiers with the various forms of the IF statement, the following rules apply: 


1. Append statement modifiers to either the THEN clause or the ELSE clause of an IF statement. 
2. The statement modifier applies only to the clause it is appended to and not to the statement as a whole. 


If you have more than one statement on a line, the modifier applies only to the statement immediately preceding it. 
You can also append more than one statement modifier to a single statement. In this case, BASIC processes the 


modifiers from right to left. See Section 6.1.5. Statement modifiers are reserved words. See Appendix C. 


6.1.1 The IF Modifier 
The IF modifier has the following format: 


statement IF condition 
where the condition can be any numeric expression. 
BASIC tests to see if the condition is true or false. The statement executes only if the condition is true. 


For example: 


10 PRINT X IF X <2 0 
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Table 6-1 Statements 


Can Have Modifiers Cannot Have Modifiers 


CALL DATA 
CHAIN DEF 
CHANGE DIM 
CLOSE END 
GOSUB FNEND 
GOTO FOR 
IF-THEN-ELSE NEXT 
INPUT REM 
KILL SUB 
LET SUBEND 
MAT INPUT UNTIL 
Matrix Initialization WHILE 
MAT PRINT 

ON GOSUB 

ON GOTO 

ONERROR 

OPEN 

PRINT 

RANDOMIZE 

RESTORE 

RESUME 

RETURN 

SLEEP 

STOP 





BASIC prints the value X only if X is not equal to 0. The example is the same as using the IF-THEN-ELSE 
statement: 


10 IF X => 0 THEN FRINT X 


Note that you cannot add an ELSE or a THEN clause to the IF modifier. However, you can use the IF modifier in 
a THEN or ELSE clause: 


10 IF A=B THEN FRINT B IF B<100 


The IF modifier in this example applies only to the statement PRINT B. BASIC prints the value of B when both the 
following conditions are true. 


1. If Ais equal to B 
2. If Bis less then 100 


6.1.2 The UNLESS Modifier 
The UNLESS modifier has the following format: 


statement UNLESS condition 
where the statement executes only if the condition is false. For example: 


10 PRINT A UNLESS A=0 
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BASIC prints the value of A only if A is not equal to 0. 
The following examples produce the same results as the UNLESS modifier: 


10 FRINT A IF NOT A=0 
2O IF NOT A=0 THEN FRINT A 
3O IF A => QO THEN FRINT A 


The UNLESS modifier simplifies the negation of a logical condition. 


6.1.3 The WHILE Modifier 
The WHILE modifier has the following format: 


statement WHILE condition 
where the statement executes repeatedly as long as the condition is true. 


For example: 


00010 Y=2 
00020 Y=7Y°C(2) WHILE Y1LES 
00030 PRINT ¥ 


Line 20 executes over and over as long as X“(2) is less than 1E6. When X°(2) is greater than or equal to 1E6, BASIC 
executes line 30. 


The WHILE modifier sets up a loop wherein one statement executes iteratively if the condition is true. There is no 
formal control variable, i.e., =1 TO 10, as in a FOR-NEXT loop. Instead, the structure of the loop modifies the 
values which determine loop termination. 


The previous example is equivalent to: 


O0O010 Y=2 

00020 YH¥™ C2) 

00030 IF Y¥°C22£1E6 GOTO 40 ELSE GOTO 3 
00040 FRINT Y 

00050 ENT 


Be careful not to create an infinite loop with the WHILE modifier. The following sequence never terminates 
properly: 


10 X=Xti WHILE T1000 


Tis sct to O at the beginning of program execution; therefore I is less than 1000. The condition of the WHILE 
modifier is unrelated to the assignment X=Xt+1. 


Because 0 is always less than 1000, the statement causes an infinite loop. 
Consider the following example: 
QO0010 READ 2 WHILE Z = 10 
00020 IF Z z= 10 THEN PRINT “?PWHILE ON READ FATLED. * 


00030 DATA Llr2r324rS5x6¥798 99219 
00040 END 
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Line 10 reads the data in line 30 until it reaches 10. Then the WHILE condition is no longer true, and line 20 
executes. 


RUNNEH 
PWHILE ON READ FAILED. 


6.1.4 The UNTIL Modifier 
The UNTIL modifier has the following format: 


statement UNTIL condition 


where the statement executes repeatedly as long as the condition is false. For example: 


00005 X 40 
QOO0190 xX X + 1 UNTIL X & 79S 
00020 FRINT xX 


Hf 


Line 10 executes repeatedly as long as X is less than or equal to 795. The statement continues until the condition 
becomes true. 


The UNTIL modifier is similar to the WHILE modifier in that it does not need a formal control variable to deter- 
mine loop termination. 


The previous example is equivalent to: 


00005 X = 7350 

00010 X = X + 5 

00015 FRINT X 

00020 IF XK <==795 GOTO 10 


Be careful not to create an infinite loop with the UNTIL modifier. 


Consider the following example: 


00010 A=1\B=2\C=3 
00020 LET D=C+2xA UNTIL De=50 
00030 IF Ds=350 THEN PRINT 0 


Line 20 continues to execute as long as D is less than 50. Once D is greater than or equal to 50, BASIC proceeds to 
line 30. 


6.1.5 The FOR Modifier 
The FOR modifier has the following format: 


rr —_—, 


statement FOR variable = num expr 1 ‘ STE _ num expr 2 WHILE | conditional expr 
BY: UNTIL 


Or 


statement FOR variable = num exprl TO num expr2 [STEP num expr3]] 


The FOR modifier is used to create an implied loop on a single line. 
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For example: 
10 PRINT I» SQR(I) FOR I = 1 TO 10 
is equal to 


10 FOR I = 1 TO 10 
20 FRINT I» SQR(T) 
30 NEXT I 


By using the FOR modifier for simple loops, you eliminate the need for the FOR-NEXT statement. Notice that the 
FOR modifier applies only to one statement on the line. Hence, it iterates only one statement. You can have many 
FOR modifiers in a single program. 


The STEP and BY clauses increment the index variable just as they do in the FOR statement. The default is +1. 
10 PRINT A=BXC FOR I = 1 TO SO STEF 3 


If you use the WHILE or UNTIL option, the loop continues as long as the WHILE condition is true; the loop con- 
tinues as long as the UNTIL condition is false. 


The following is an example of a FOR modifier and an IF modifier: 


10 DIM xX¢100) 
20 PRINT Ivy X(T) IF XCI) «=> O FOR I = 1 TO 100 


With more than one modifier, BASIC reads from right to left. Therefore, the implied loop, I=1 TO 100, executes 
first, then the IF modifier is tested. Appending more than one modifier to a statement is known as nesting modifiers. 


Consider the following examples: 


10 LET A=AtJ FOR J=1 TO 10 IF AtJ<10 

20 LET B=B-J FOR J=1 TO 10 UNLESS B:==10 

30 LET C=C+Jk2 FOR J=1 TO 4 WHILE C=#10 

40 LET [Tl=-0-J FOR J=2 TO 10 STEF 2 UNTIL [t=-10 
390 LET F=I+J FOR IT=1 TO 3 FOR J=2 TO 6 

60 ENT 


In each case, the modifiers are tested from right to left. If the first modifier fails, BASIC continues execution at the 
next statement of the program (not the next modifier on the same line). 
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7.1 TYPES OF FUNCTIONS AVAILABLE 

Functions perform a series of numeric or string operations on the arguments you specify and return a result to 
BASIC (see Section 2.4.6). You can use functions which return numeric values in numeric expressions and func- 
tions which return string values in string expressions. BASIC provides numeric functions, string functions, con- 
version functions, date and time functions, and user-defined functions. BASIC-PLUS-2 library functions are 
reserved words. See Appendix C. 


7.2 NUMERIC FUNCTIONS 
The BASIC-PLUS-2 numeric functions perform standard mathematical operations. 


BASIC provides the following trigonometric functions: 


SIN — sine 

COS — cosine 
TAN — tangent 
ATN — arctangent 


hw NbN 


In addition, BASIC has a special function, PI, which returns the value of a transcendental number frequently used as 
a trigonometric constant. 


BASIC also has algebraic functions: 


SQR — the square root of a number 

EXP — the value of e, an algebraic constant, raised to any power 
LOG and LOG10 — the logarithm of a number 

INT — the integral part of a number 

ABS — the absolute value of a number 

FIX — the truncated value of a number 


NM BW YN 


All BASIC numeric functions return real numbers (internally) as opposed to integer values. Note that a numeric 
argument to a function is converted to integer by truncation. 


7.2.1 Trigonometric Functions (SIN, COS, TAN, ATN, and PI) 

BASIC provides functions, SIN and COS, to find the sine and cosine of an angle in radians. In addition, you can 
use the ATN function to find the arctangent of a number, the angle whose tangent is equal to the number. The 
format of these functions is: 


SIN(expression) 

COS(expression) 
TAN(expression) 
ATN(expression) 
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The PI function returns a numeric constant, 3.141593. The accuracy of this number depends on your system. 
Because PI is a transcendental number, the value the PI function returns is only an approximation. The format 
of the PI function is: 


PI 
PI can be used in any expression. 
Do not include an argument with PI; if you do, BASIC prints an error message. 


Consider the following example: 


00010 REM CONVERT ANGLE (X) TO RADIANS: ANI 
O0020 REM FINI! SIN ANT COS 

00025 PRINT "DEGREES" »s “RADIANS "» "SINE" » “COSINE * 
00030 INPUT X\GO TO 100 IF X<0O 

00040 LET Y=XXFPI/180 

00050 PRINT XvYesSIN¢CY) sCOSCY) 

00060 GOTO 30 

00100 END 


REALTY 

RUNNH 

QNEGREES RADIANS SINE COSINE 
? 0 
0 O QO 1 


i 0.1745329 0.1736482 0.9848078 
” 

20. 0.3490458 0.3420201 0. 9396926 

i 0.5235988 0.5 0.8660254 

ae 6.283185 O 1 

oa 0.7853982 0.7071068 0.7071068 

pod 


Note that in this example, PI is used to convert degrees to radian measure (line 40). 
The TAN function returns the tangent of the argument you supply. The TAN function has the following format: 
TAN(expression) 
where: 
expression must be given in radians. 


The ATN function returns the value in radians of the angle whose tangent is equal to the argument. The format 
of the ATN function is: 


ATN(expression) 
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The value BASIC returns is also in radians. 


The ATN function returns a value in the range +PI/2 to -PI/2. 


The following example tests the ATN function. The program inputs an angle in degrees, converts it to radians, 
and calculates the tangent of the angle according to this formula: 


TAN(X) =SIN(X)/COS(X) 


Then the program converts the tangent to an angle using the ATN function and prints the results. The angles 
returned by the ATN function should be the same as the angles you supply. 


00100 
00110 
00120 
00130 
00140 
00150 
00140 
00170 
00180 
00190 
00200 


READY 
RUNNH 


PRINT “SUPPLY AN ANGLE IN [DEGREES " 

FRINT “ANGLE*»s “ANGLE "»"*TANCX) "2 “ATANCX) “9 SATANCX) " 
PRINT "CDEGS)"»"CRADS) "92" (RADS)"»* (CDEGS) * 

INFUT X\GO TO 200 IF X<O 

Y=XXPI/180 

Z=SINCY)/COSCY) 

PRINT XvY¥rZxATNOZ) vATN(CZ)K180/FI !COMPUTE ARCTANGENT 
PRINT 

GOTO 130 

GOTO 130 

ENIt 


SUPPLY AN ANGLE IN DEGREES 


ANGLE 
(EGS) 
PO 


ANGLE TANCX) ATAN(CX) ATAN(X) 

CRADS) CRADS ) (MEGS) 
0 0 0 QO 
0.,7853982 1 0-.7853982 45 
0.1745329 04176327 0.,1745329 10 


7.2.2 Algebraic Functions 
BASIC has several algebraic functions that you can use in calculations: 


SQR 
EXP 
LOG 
LOG10 
INT 
ABS 
SGN 
FIX 


Square root function 
Exponential function 
Logarithm function 
Common Logarithm function 
Integer function 

Absolute Value function 

Sign function 

Fix function 
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7.2.2.1 Square Root Function (SQR) — The SQR function returns the square root of the expression you specify. 
The format of the SQR function is: 


SQR(expression) 


If the value of the expression is negative, BASIC prints a warning message and the function returns the square root 
of the absolute value of the expression. 


00010 INPUT X\GOTO 100 IF X«<0 
00020 LET Z=SQR(X) 

00030 FRINT Z 

00040 GOTO 10 

00100 END 


REALY 
RUNNH 
P16 


4 
P 1000 
31.462278 
Po 123545 =| 
111.1081 
P 25E2 
30 

P 1970 
44,.38468 
dic | 


7.2.2.2 Exponential and Log Functions (EXP, LOG, and LOG10) — The exponential function, EXP, returns e, 
an algebraic constant, raised to the power specified by the expression, where e is the base of the natural logarithm 
system. The value of e is approximately 2.71828. The accuracy of this number is system-dependent. 
The format of the exponential function is: 

EXP(expression) 
The logarithm function LOG returns the logarithm to the base e of the expression. 
The format of the LOG function is: 


LOG(expression) 


E 


+ 
ae 
ab) 


nd LOG are related functions. Specifically, EXP is the inverse of LOG. The following formula describes 


iS1uip. 
LOG(EXP(X)) = X 


Consider the following examples. Note that the output from one example is used as the input for the other. 
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Functions 


LOG Function 


00010 INFUT X\GOTO 100 IF X=0 
00020 FRINT EXF CX) 
00030 GOTO 10 


00100 ENT 


REALY 
RUNNH 
? 44 
54.59815 
? 10 
2202647 
? 9,42100 
12344.92 
? 4.60517 
99 .99998 
? 25 
7. 20049E+10 
? -1 


00010 
00020 
00030 
00100 


REALY 
RUNNH 


INPUT X\GO TO 100 IF X=0 
FRINT LOGCX) 

GOTO 10 

ENII 


P G4.59815 


4 


PF 2206.47 
7+ 699149 
Po 12344,.92 


P2421 


O94 


POPIOS 


4.60517 
P 7+20049E410 


toe ta 


J fo 


aa | 


The LOG10 function returns the common logarithm (base 10) of the specified value. The form of the LOG1O 


function is: 


LOG10(expression) 


Programs that require the computation of logarithm (base 10) do not have to use the conversion formula described 


above. For example: 


00010 INFUT 
00020 FRINT 
00030 FOR I 
00040 PRINT 


OOOSO0 NEXT I 


READY 

RUNNH 
P3732 

xX 
wel 3a 
32, 85582 
188.3296 
1079.505 
6187.724 


x 
"X*y"LOGIOCX)" 
= 1 T7T0 5 
X“TrvLOGLOCX*T) 


LOGLIOCX) 
0.7583062 
1.516612 
2+274919 
369033225 
Se /FIGS4 


If the expression supplied for the LOG or LOG10 function is equal to or less than zero, BASIC prints a message, 
and the function returns a value of zero. 


7.2.2.3. The Integer Function (INT) — The integer function returns the value of the greatest integer that is less 
than or equal to the expression you specify. The format of the integer function is: 


INT(expression) 
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Functions 


For example: 


00010 FRINT INT(34,.47) 
00020 FRINT INT(33000.9) 


REALY 

RUNNH 
34 
33000 


The INT function always returns the value of the greatest integer that is less than the specified integer; however, 
when you specify a negative number, INT produces a number whose absolute value is larger. For example: 


00010 FRINT INTC~-23-.45) 
00020 PRINT INT(-14.7) 
00030 FRINT INT(-11) 


READY 
RUNNH 
~24 


acl & 
Note that the value returned by INT is a real number. 


You can use the INT function to round off numbers to the nearest integer by adding 0.5 to the argument. For 
example: 


OOO10 PRINT INT(34.67+.35) 
00020 FRINT INT(-S.1+.5) 


REATIY 
RUNNH 


35 


we BO 


You can also use INT to round off a number to any given decimal place or any integral power of 10. Do this by 
using the formula: 


rounded off number = INT(number*10°P+.5)/10°P 


where P represents the number of places of accuracy and is positive for accuracy to the right of the decimal point 
and negative for accuracy to an integral power of 10. 
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00050 
00100 
00110 
00115 
00120 
00130 
00140 
00150 
00140 
00170 
00180 
01000 


READY 
RUNNH 


REM PROGRAM TO ROUNET 


FRINT 
INPUT 
IF N 

FRINT 
INFUT 
PRINT 
LET A 
PRINT 
PRINT 
GO TO 
ENT 


Functions 


Consider the following example, which rounds numbers to the number of decimal places specified (line 150): 


OFF DECIMAL NUMBERS 
"WHAT NUMBER DO YOU WISH TO ROUNI OFF"; 
N 

—-9999 THEN 1000 

"TO HOW MANY PLACES"? 
P 


=INTOCNKLOTP+.5)/010°R) 
Ne "="fAx*TO°SFs "“NHECIMAL FLACES. " 


100 


NO YOU WISH TO ROUND OFF ? 346-1237 


FLACES ? 2 


WHAT NUMBER 
TO HOW MANY 


“ 


Ane 


TO DECIMAL FLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF ? 8.449 
TO HOW MANY FLACES 7 1 


8-449 8.4 TO 1 DECIMAL FLACES. 


WHAT NUMBER [DO YOU WISH TO ROUND OFF ? -9999 


7.2.2.4 The Absolute Value Function (ABS) — The ABS function returns the absolute value of the specified 
expression. The form of the ABS function is: 


ABS(expression) 


The absolute value of a number is always positive. If the expression is a positive number, the absolute value is equal 
to that number. If the expression is a negative number, the absolute value is equal to -1 times the number. For 
example: 


INFUT X\GO TQ 100 IF X=0 
X=AKRS (CX) 

PRINT xX 

GOTO 10 

END 


QO0010 
00020 
00030 
00040 
00100 


READY 
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RUNNH 


2 
? 25E20 
ee JEt21 

? 10555567 
1.05905 7E+7 

? 10.12345 
10.12345 

P -44.55546469 


44.55567 
FO. 


Note that the ABS function returns a real number even if the argument is an integer. 


7.2.2.5 The SIGN(SGN) And FIX (Fix) Functions — The sign function determines whether an expression is 
positive, negative or equal to 0. The format of the SGN function is: 


SGN(expression) 


If the expression is positive, SGN returns a value of +1. If the expression is negative, SGN returns a value of -1. If 
_ the expression is equal to zero, SGN returns a value of zero. For example: 


00010 A=-7,.32 

00020 B=.44 

00030 C=0 

00040 FRINT “A="sAx"B="s By "C=" 5C 
00050 PRINT "SGNCA)="FSGNCAD » 
00060 PRINT "SGNCB)="SsSGNCE) » 
00070 PRINT "“SGN(C)="sSGNC(C) 


00080 ENT 

READY 

RUNNH 

A=—-7 2352 R= 0.44 C= 9 
SGNCA)=-1 SGNCR)= 1 SGN(C)= O 


Note that the SGN function returns the values as a real number. 
The FIX function has the following format: 


mrs / a ‘N 
PLA(EXpresslor) 


The FIX function returns the truncated value of the argument you supply as a real number not an integer. For 
example: 


FIX(- .5)=0 
FIX(2.6)=2 


The FIX function is equivalent to: 


SGN(X)*INT(ABS(X)) 


Functions 


7.2.3 Random Numbers (RND And RANDOMIZE) 

The RND function supplies a series of random numbers to a BASIC program. This function is useful if you want 
to simulate a situation that involves input of an unknown quantity, i.e., a roll of the dice. When you include the 
RND function in a program, it produces a predictable sequence of numbers that are seemingly unrelated. Because 
a computer always produces the same results given the same starting conditions, the RND function does not create 
a truly random series of numbers. Every time you execute the same program you will receive the same series of 
random numbers. Therefore, the RND function is known as a pseudorandom number generator. 


The RND function has the following format: 
RND 


The RND function returns a random number between 0 and | but never returns the extremes of the range, 0 and 1. 
(This kind of range is called an open range, or open interval.) For example: 


QOO0O10 FRINT RANDY RNIto RNIDy REND 
00020 END 


READY 
RONNH 
0.1948187 0+ 7324436 025037399 0. 3225784 


The program requests 4 random numbers so BASIC prints 4 numbers in the open range 0 to 1. 


The RND function has the same starting location each time you run the same program. However, you can change 
the starting point by adding the RANDOMIZE statement before the RND function in the program. Each time 
BASIC executes the RANDOMIZE statement, it starts the RND function at a new unpredictable location in the 
series. This location is determined by the current time of day according to the computer’s clock. 


NOTE 
You should not include the RANDOMIZE statement 
until you have debugged your program. If you do, you 
will not know if changes in the results are caused by 
changes in the program or changes in the starting loca- 
tion of the random number generator. 
The RANDOMIZE statement has the following format: 
RANDOM [iZE]] 
Consider the following examples which contrast RND without and with RANDOMIZE. 
RND without RANDOMIZE 


90010 PRINT RNDY RNs RNID RN 
00020 END 


REATY 
RUNNH 
0.1948187 047324636 046087399 0. 3225784 


REATIY 
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RUNNH 

0.1948187 0+7324636 
REALY 
RUNNH 

0.1948187 0.7324636 


Notice every time the program without RANDOMIZE is run, RND produces the same series of values. 


RND with RANDOMIZE 


00005 
00010 
00020 


REALY 
RUNNH 


0.9734626 


READY 
RUNNH 


0+6524263 O-8212112 


REALTY 
RUNNH 


0.2330611 


RANDOMIZE 


FRINT RNIty RND ey RNDy RNG 


END 


0.08921584 


0+-4360573 


Functions 


0,.6087399 


0.6087399 


0.9579798 


0.95879883 


0.3225784 


0.3225784 


0+6475236 


0+3611355 


Each time the program with RANDOMIZE is run, RND produces a different random series of numbers. 


You can also use the RND function to produce a series of random numbers over any given open range. To produce 
random numbers in the open range A to B, use the following general expression: 


(B-A) * RNDtA 


For example, to produce 10 numbers in the open range 4 to 6, use this program 


00010 FOR I = 1 TO 10 
00020 FRINT (6-4) * RNII+4, 
00030 NEXT I 
00040 END 
REALLY 
RUNNH 
4.389637 5.464927 
4.376985 4.123446 


READY 


weet 748 4.649157 
De 4eGoid Sees doad 


Note that in line 20 of the program the general expression is used with a value of 4 for B and a value of 6 for A. 


tae 2 4. The MOD F unction — 


The MOD function has t he efallowing format: 


_ MODHKA 2 


pore 
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where: 

A,B represent numeric constants you supply. 
MOD%(A,B) returns the integer result of A mod B, which is the remainder of A/B. 
MOD(A,B) returns the real result of A mod B, which is equal to A-B*INT(A/B). 


7.3 STRING FUNCTIONS 
BASIC provides string functions that allow you to modify strings. With these functions you can: 


1. Determine the length of a string (LEN) 

2. Trim off trailing blanks from a string (TRM$) 

3. Search for the position of a set of characters within a string (POS, INSTR) 
4. Extract a segment from a string (SEG$,MID,LEFT$,RIGHT$) 

5. Create a string of a certain length (STRINGS) 

6. Insert spaces into a string (SPACE$) 

7. Alter the contents of a string (EDITS) 


Another group of BASIC string functions allows you to convert strings to numbers and numbers to strings. In 
particular, you can convert: 


1. Character to ASCII code (ASCII) 
2. ASCII code to character (CHR$) 
3. String representation of a number to a number (VAL) 


BASIC’s relational operators allow you to concatenate and compare strings (Section 2.4.4), but with string functions 
you can also analyze the composition of a string. The following sections describe these functions. 


The functions LEFT$, RIGHTS, MID, and SEG$ all return the null string if their string argument is null. No 
further range checking is done in this case. 


7.3.1 Finding the Length of a String (LEN) 
The LEN function returns an integer equal to the number of characters in the specified string (including trailing 
blanks). The format of the LEN function is: 


LEN(string) 
For example: 


00010 A$="ABCIEFGHIIJIKLMNOFQRSTUVUWXYZ " 
00020 FRINT LEN(CAG) 
00030 ENT 


REALTY 
RUNNH 
2 
7.3.2 Trimming Trailing Blanks (TRMS) 
The TRM$ function returns the specified string with all trailing blanks removed. The format of the TRM$ function 


1S: 


TRM$ (string) 
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Consider the following example in which two strings are concatenated and printed, both before and after trailing 
blanks have been trimmed: 


00010 At="ARCN . 

00020 BE="EFG" 

00030 FPRINT “BEFORE TRIMMING: * sASTtES 
00040 FRINT "AFTER TRIMMING: “»y TRM& (AS) +E 


00050 END 

READY 

RUNNH 

KEFORE TRIMMING: ABCH EFG 
AFTER TRIMMING: ABCIIEFG 


7.3.3 Finding the Position of a Substring (POS, INSTR) 
Use the POS or INSTR function to find the position of a group of characters, a substring, in a string. The form of 
the functions are: 


POS(string1, string2, expression) 
or 
INSTR(expression,string1 string2) 


where: 
string] is the string being searched. 
string2 is the substring. 
expression is the character position at which BASIC starts the search. 


These functions search for and return the position of the first occurrence of string2 in string], starting with the 
character position specified by expression. If the specified substring is found, the character position of the first 
character of the substring is returned. If the specified substring is not found, the function returns 0. 


You can use these functions to map a string of characters to a corresponding integer which can then be used in 
calculations. This technique is called a table look-up: the table string is string] and the string to be mapped is 
string2 in the POS function. Consider the following example which translates month names to numbers. 


00010 REM FROGRAM TO TRANSLATE MONTH NAMES TO NUMBERS 

90020 Tt = "JANFEBMARAFRMAY JUNJULAUGSEPOCTNOVIIEC’ !TABLE STRING 
00030 FRINT “TYFE THE FIRST 3 LETTERS OF A MONTH." !'INFUT THE STRING 
00040 LINFUT M$ 

00050 IF M$ = "* THEN 99999 !'IF THE STRING IS NULL THEN END 

00060 IF LENCMN$) <> 3 GOTO 120 !CHECK IF THE STRING IS 3 CHARACTERS 
00070 M = CPOSCTHGsM$e1)42)/3 

O0080 REM CHECK IF MONTH IS SFELLED CORRECTLY 

00090 IF M == INTCM) GOTO 120 

OO0100 FRINT M#s" IS MONTH NUMBER"sM ! PRINT NUMBER IF IT IS CORRECT 
G0O110 GOTO 30 

60120 FPRINT “INVALID ENTRY -— TRY AGAIN. "\GOTO 30 

00670 

99999 END 

REALTY 
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RUNNH 

TYPE THE FIRST 3 LETTERS OF A MONTH. 
? NOV 

NOV IS MONTH NUMBER 11 

TYFE THE FIRST 3 LETTERS OF A MONTH. 
? DEC 

NEC IS MONTH NUMBER 12 

TYPE THE FIRST 3 LETTERS OF A MONTH. 
? JAN 

JAN IS MONTH NUMBER 1 

TYFE THE FIRST 3 LETTERS OF A MONTH. 
? AUL 

INVALIDTD ENTRY - TRY AGAIN, 

TYFE THE FIRST 3 LETTERS OF A MONTH. 
? AUG 

AUG IS MONTH NUMBER 8 

TYPE THE FIRST 3 LETTERS OF A MONTH. 
” 


There are certain possible error conditions dependent on the values of the strings and the expression. 


1. Ifstringl, the table string, is null, an error is given. 

2. Ifstring] is non-null and string2 (the substring) is null, 1 is returned. 

3. Ifneither 1. nor 2. holds, and if the value of the expression is greater than the length of string] or less than 
1, an error is given. 


7.3.4 Extracting a Segment from a String (SEG$) 
The SEG$ function is used to extract a segment (substring) from a string. The original string remains unchanged. 


The format of the SEG$ function is: 


SEG&(string, expression! , expression?) 


where: 
string | is the string from which the segment is copied. 
expression 1 specifies the starting character position of the segment. 
expression2 specifies the last character position of the segment. 


For example: 


00010 PRINT SEGS("ARCTEF*y3935) 
00020 ENT 


REALY 
RUNNH 


CHE 


If expression! equals expression2, SEG$ returns the character at expression 1. 


Functions 


There are several error conditions based on the values of the expressions and the string: 
1. If expression! <= 0, an error is given. 
2. If expression2 >= the length of the string, an error is given. 
3. If expression] > expression2, an error is given. 


By using the SEG$ function and the string concatenation operator (+), you can replace a segment of a string. 
Consider the following example: 


00010 AS "“ABCIEFG" 

00020 CS DEG$CASy1%¥2) bz "XYZ°+ SEGECASy 477) 
00030 FRINT C$ | 

00040 ENT 


READY 
RUNINH 
AEBXYZFG 
Line 20 replaces the characters CDE in the string A$ with XYZ. 
Examine line 20: 
20 C$ = SEGS(A$r1Ly2d+"°XYZ"+SEGSCASAGY Gs 7) 
You can use similar string expressions to replace any given characters in a string. 
A general formula to replace the characters in positions n through m of string A$ with B$ is: 


C$ = SEG$(A$,1 ,n- 1)+B$+SEG$(A$ ,m+1,LEN(A$)) 


For example, to replace the 6th through 9th characters of the string ““ABCDEFGHIJK” with “123456’’, enter the 
following program: 


00010 AS = "“ABRCDTEFGHI JK * 
00020 BRS = "125456" 
00030 CH = SEGHCAGr1sS)+t ES + SEGH CAG 1OrsLENCAS) D 
00040 PRINT Cs 
00050 END 
REALTY 
RUNNH 
ABRCIELZ3S456IK 
71355 The MID Function 


The MID function has the following format: 


MID(string,expression1%,expression2%) 
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where: 


string is a string constant or string variable. 
expression!% is a positive integer designating the starting position of the substring. 


expression2% is a positive integer designating the number of characters in the substring. 
Starting with the character at expression1%, the MID function returns a substring with a length of expression2%. 


For example: 


00010 ALFHAS="ABCTEFGHI JRLMNOFQRSTUVWXYZ" 
00020 FRINT MIDCALPHA$s15%552) 

00030 PRINT 

00040 FRINT MIDC*ENCYCLOPEDIA®” +3%%6Z) 
00050 END 


REATIY 
FRUN 


7~17.B20 
Monday, May 23» 1977 16304341 


OF QRS 
CYCLOF 
The following error conditions apply to the MID function: 
1. Ifexpression2 is zero, BASIC returns the null string. 
2. Ifexpression?2 is less than zero, an error message is given. 


3. If expression 2 is greater than zero, then 


MID(string,expression! ,expression2) is equivalent to 
SEG SM(string,expression 1 ,expressionl+expression2- 1). 


7.3.6 The LEFTS and RIGHTS Functions 
The LEFT$ function has the following format: 


LEFT([$]] (string, expression) 


where: 
fis ij the dollar sign is optional but preferred. 
string represents the string that contains the substring. 
expression represents an integer constant denoting the character position where the copying should 


stop. 
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BASIC returns a substring of the string you specify, from the first character in the string to the character position 
you specify in the expression. For example: 


00010 PRINT LEFTS$( "ABCIIEFG" » 4%) 
00020 END 


READY 
RUNNH 
ABCD 
The RIGHTS function has the following format: 


RIGHT ([s]] (string, expression) 


where: 
(Is ]] the dollar sign is optional but preferred. 
string represents the string that contains the substring. 
expression represents the character position where the copying begins. 


BASIC returns a substring of the string you specify, starting with the character position in the expression up to the 
last character in the string. For example: 


00010 FRINT RIGHT$( "ABRCIEFG" +62) 


READY 
RUNNH 
FG 


In general, if expression is less than 1 or greater than the length of the string, an error is given. However, these two 
particular cases each return the null string: 


LEFTS(string,0) and 
RIGHT S&(string, 1+LEN(string)) 


7.3.7 The STRINGS and SPACE$ Functions 
The STRING$ function has the following format: 


STRINGS$(expression1%,expression2%) 
where: 


expression 1% is a positive integer constant representing the length of the string you want to create. 


. 
lot tae votelel fat a 


expression2% — is a positive integer consiani representing the decimai ASCII vaiue of the character you 
want in the string. 


BASIC creates a string of length expression1% with characters whose ASCII value is expression2%. For example, 
to create a string consisting of 10 upper case A’s, use the following: 3 


00010 PRINT STRING$(1049652) 
READY 


RUNNH 
AAAAAAAAAA 
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The SPACE$ function has the following format: 
SPACES(expression%) 
where: 
expression% is an integer constant representing the number of spaces you want to add to a string. 


For example: 


00010 AG="ABC*+SFACES$ (SZ) 
00020 PRINT A¢$+"TDEF " 


REATY 
RUNNH 
AEC DEF 


7.3.8 The EDITS Function 
The EDITS function has the following format: 


string var = EDITS(string,expression%) 


where: 
string var contains the new string after alterations, 
string is a string constant or string variable representing the original string. 
expression% is one of the integers in the following table, or a sum of the integers. 


Table 7-1 EDITS Conversions 


Discard all spaces and tabs. 
Discard excess characters: CR, LF, FF, ESC, RUBOUT, and NULL. 


Discard leading spaces and tabs. 
Reduce spaces and tabs to one space. 
Convert lower-case to upper-case. 
Convert [ to (and ] to ). 

Discard trailing spaces and tabs. 





The EDIT$ converts the source character string according to the decimal value of the integer represented by 
expression%. 


For example: 


00010 
00020 
00030 
00040 
00045 
000590 
00060 
00070 
00080 
00090 
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R$="ISCARD ALL SPACES AND TABS." 
AS=EDNITS (BS y 27%) 
FRINT BS 

PRINT At 

PRINT 
C$="REDUCE 
DS=ENITS(C$9156%) 
FRINT C& 

FRINT DS 

ENT 


SFACES ANI TABS 


TO ONE 


SPACE." 


REATIY 
RUN 


EDITS. B20 
Monday, May 23% 1977 16307358 


QDISCARI ALL SFACES ANDI! TARS. 
DISCARDALLSPACESANDITARS. 


REDUCE SFACES ANT TARS TO ONE SFACE. 


REDUCE SFACES ANI TABS TO ONE SFACE. 


You can also specify the sum of 2 or more integers in the table for a multiple effect. For example: 


00010 FRINT “TYPE THE INFUT STRING*#\INFUT LINE At 
00020 BS=EDIT$(A$»80Z) 

O0030 FRINT “BS = "BS 

00040 END 


READY 
RUN 


ENIT$1.B20 

Mondays May 23% 1977 16308339 

TYPE THE INPUT STRING 7? *THIS I5 MY CPPNI.° 
R$ = "THIS IS MY (PFN). * 


In line 20, the expression%, 80% is a combination of 16% and 64%. 


7.4 CONVERSION FUNCTIONS 

BASIC provides several string functions to do string to numeric and numeric to string conversions. ASCII and CHRS 
allow you to convert a one character string to the character’s ASCII number and vice versa. These functions are 
often useful in analyzing the characters in a string. The VAL and STR$ functions convert a string representation of 
a number to the number and vice versa. You should use them when you want to input a numeric value as a String 


or to print a number without the spaces around it. 


7.4.1 Character and ASCII Code Conversions (ASCII and CHR$) 
The ASCII function has the following format: 


ASCII(string) 
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where: 
String is either a string constant, a string variable, or string expression. 


The ASCII functions returns the decimal ASCII value of the first character in the string specified. For example, 
ASCII (‘‘D”) is equal to 68, the decimal ASCII value of D. 


You can also use a string variable as an argument: 


00010 A$="TOG" 
00020 FRINT ASCIICA$) 


REATY 
RUNNH 
68 


This program prints the value of the first character in A$. 
The ASCII function returns an integer value. 
7.4.2 Converting the ASCII Code to a Character 


The CHR$ Function — Use the CHR$ function to create strings from ASCII values. The CHR$ function returns 
a 1-character string having an ASCII value of the specified expression. The format of the function is: 


CHR$ (expression) 
Only one character is generated at a time. 
The expression must be zero or greater, and arguments greater than 255 are treated modulo 256. 
Consider the following example: 


REM THIS FROGRAM WILL RETURN AN INFUT LETTER ANID! THE 2 


REM FOLLOWING IT ALFHABRETICALLY 


00010 
00020 


00030 
00040 
00050 
00055 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00150 
00160 
00190 
00210 
00999 


REALY 


PRINT 
PRINT 
INFUT 
IF X% 


IF X$ = 
IF X$ = 


FOR F 


IF CHRS(F) = 


ENTER END WHEN FINISHED, * 


LETTER" 


"ENTER A LETTER A THROUGH Zy» 
"LETTERS y *NEXT LETTER", “3RD 
X$ 

= "END" GOTO 999 

"A" GOTO 190 

"Z" GOTO 190 

= ASCIICX$) TO ASCIICX$) +2 
*"Z" GOTO 150 


'RETURNS ASCII VALUE OF X$% 


PRINT CHRS (CF) » 


NEXT F 


PRINT 


GOTO SO 


PRINT 


"END OF ALFHARET" 


GOTO SO 


PRINT 


"ENTRY IS NOT A LETTER A THROUGH Z" 


GOTO 30 


END 
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RUNNH 

ENTER A LETTER A THROUGH Zy ENTER END WHEN FINISHED. 
LETTER NEXT LETTER SRI LETTER 

ee 

E F G 

? A 

A BR C 

ft Y 

Y Zz END OF ALPHARET 

ame 


ENTRY IS NOT A LETTER A THROUGH Z 

ENTER A LETTER A THROUGH Zs ENTER END WHEN FINISHED. 
LETTER NEXT LETTER SRO LETTER 

? END 


7.4.3 Converting an Integer to RADIX-50 (RAD) 
The RAD function has the following format: 


RAD(expression%) 
where: 
expression% represents an integer constant that you supply. 


The RAD function converts the integer you specify to RADIX-50. RADIX-50 is a character set similar to the ASCII 
code. See the User’s Guide for more information on RADIX-50. 


7.4.4 The CHANGE Statement 
The CHANGE statement converts a string of alphanumeric characters into their ASCII decimal values and a list of 
decimal numbers into a string of alphanumeric characters (see Appendix B for the ASCII Table). 


The CHANGE statement has the following format: 


CHANGE list TO string variable 
Or 


CHANGE (string variable TO list 
string expression 


where: 


list is a numeric or integer variable representing a 1- or 2-dimensional array of decimal values. 


In the first format, the CHANGE statement converts a list of integers (real numbers are truncated) into a string of 
characters. The length of the string is determined by the valuc found in clement 0 of the list. For example: 


00010 FOR I = 0 T0 5S 

00020 REAL ACT) 

000350 NEXT I 

00040 DATA 327657669467 %689 59 
00050 CHANGE A TO AS 

000460 PRINT AS 

00070 END 


READY 
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RUNMH 
ABCHE 


The CHANGE statement uses the first value in the list (S) to determine the length of the character string. It then 
converts the next 5 values into their ASCII representations (see Appendix B). 


In the second format, the CHANGE statement converts a string of characters into a list of integers. The length of 
the string determines the value placed in element O of the list. For example: 


00010 DIM ACS0) 

00020 READ AS 

00030 CHANGE AS TO A 

00040 FOR I = 0 TO ACO) 

00050 PRINT ACT)» 

00055 NEXT I 

00060 DATA ABCDEFGHIJKLMNOPQRS TUVWXYZ 


00070 END 


READY 


RUNNH 
26 65 66 67 68 6% %70 71 72 73 7A %75 %7& (77 78 $72 80 81 


82 83 84 85 86 87 88 89 90 
Notice that A(O) is equal to 26 because there are 26 characters in the string. 


7.4.5 Numbers and Their String Representation (VAL and STR$) 
Two functions VAL and STR$ convert numbers to their string representation and vice versa. 


Consider these programs: 


String Representations Numbers 

00010 FRINT "25" 00010 FRINT 23 
00020 FRINT *25+1" 00020 PRINT 25+1 
REALY REALY 

RUNNH FRUN NEI 

29 ed 

2otl 2d 


The program on the left prints the string representation of numbers, but the program on the right prints the 
numbers themselves. Note how “‘25+1” on the left is printed as it is, while the 25+1 on the right is evaluated 


as 26. 


The VAL function returns the number represented by the specified string. The format of the VAL function is: 
VAL(string expression) 
where: 


string expression may contain the digits 0 through 9, the letter E (for E format numbers) and the symbols 
“2 “and “*.”, and must be a string representation of a number. 
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The STR$ function converts a number to its string representation. The format of the function is: 
STR$(expression) 


The STR$S function returns the value of expression as it would have been printed by a PRINT statement, but 
without a leading or trailing space. 


Consider the following example: 


0000S PRINT “FROGRAM TO CALCULATE SZ INTEREST" 
00010 FRINT "TYFE IN AMOUNT"S 

00020 INFUT M$ 

00030 IF POS(M$s*$"s1)251 THEN 1000 
00040 AS=SEGS(M$s29LENCMS)) 

00050 M = VALCAS) 

00060 I = .05 * M 

00070 I$ = STRS(T) 

00080 I% = SEGS(I$71,2t+POS(IS7"%."1)) 
00090 PRINT "SA INTEREST OF “sMSs 
01000 PRINT * IS $"51¢% 

99999 END 


READY 

RUNNH | 
PROGRAM TO CALCULATE SZ INTEREST 
TYPE IN AMOUNT ? 5100.00 

3% INTEREST OF $100.00 IS $ 5 


7.5 DATE AND TIME FUNCTIONS 
The following table describes the various date and time functions (24 hour clock) available in BASIC. 


Table 7-2 The Date and Time Functions 


returns the current time of day as an 8-character stringof | 10 PRINT CLISs 
the form hh:mm:ss. RUNNH 
16343253 


returns the current date as dd-mmm-yy. 10 FRINT DATS 
RUNNH 
17 Surin 77 


DATES(0%) | returns the current date in the form mm; 10 PRINT DATES(O%) 


ae, See ey 


RUNNH 
6/17/77 


DATES(n%) | returns a specific day you specify with the integer con- 10 PRINT DATES (126) 
stant supplied for n%. The formula for n% is n% = the 20 FRINT DATES (4168) 
day of the year + (the number of years since 1970*1000). | RUNNH 
If you only specify the day of the year, the date will 46-May-70 
be 1970, unless n%=0. 16-Jun-76 
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Table 7-2 (Cont.) The Date and Time Functions 


a 


TIME$(n%) returns a string corresponding to the time of day n% minutes | 10 FRINT TIMES (1) 
before midnight, unless n%=0. 9) PRINT TIMES (1440) 
3QO FRINT TIMES (721) 
RUNNH 
23359 
002300 
11359 


TIMES(0%) returns the current time of day as a character string of 10 FRINT TIMES (OX) 
the form hh:mm. RUNNH 
16345 


TIME(0) returns the clocktime, in seconds, since midnight, as a 10 PRINT TIMNECO) 
floating-point number. PUAN 
50349 
TIME(1%) returns the CPU time used by the current job, in 10 FRINT TIMECL%) 
tenths of seconds. RUNNH 
28 
TIME(2%) returns the connect time (during which you are 10 FRINT TIME(2%) 
logged-in) for the current job, in minutes. RKUNNH 
o7 


7.6 USER-DEFINED FUNCTIONS — THE DEF STATEMENT 

In some programs you may want to execute the same sequence of statements in several places. You can define a 
sequence of operations as a user-defined function and use this function like you use the functions BASIC provides, 
such as SIN and SEG$. There are two ways of defining functions: 





1. single-line DEF statement 
2. multi-line DEF statement 


7.6.1 Single-Line DEF 

Single-line DEFs have a function name consisting of the letters FN followed by 1 to 29 letters, digits, or periods 

optionally followed by a% ora $. If the function name ends in a %, then it returns an integer. If the function name 

ends ina $, then it returns a string. If the function name does not end in either a % or a $, then it returns a floating 
point number. Therefore, the function name can have a total of 33 characters. 


Legal User-Defined Illegal User-Defined 
Function Names Function Names 
FN NF1 
FNC% FN A2 
FNR.B$ FNA%$ 


The format of the single-line DEF statement is: 


DEF FNa [1 jb2,b3,.. bn) |] =ex pression 
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where: 


a is 1 to 29 letters, digits, or periods followed by an optional percent sign (%) or dollar 
sign ($) to represent an integer or string value. 


(b1,b2,b3,.. .bn) These can be integer, floating point, or string variables. 


expression is evaluated every time the function is used. It may contain any of the dummy variables 
or any other variables in the program. 


Ensure that the expression is the same data type, string or numeric, as indicated by the function name. If the 
expression is floating point and the function name is integer or vice versa, then the expression is converted to the 


type specified by the function name. 


After the function has been defined, it can be called, or evaluated. The format for calling the function is: 


% 
FNa ‘5 (expression 1 [[ expression2, see ,expression5]]) 
where the number of expressions must be the same as the number of dummy variables in the DEF statement. 


When the function is evaluated, BASIC substitutes the values for the dummy variables in the DEF statement and 
then evaluates the expression and returns the result. 


Consider the following two programs: 


Program #1 Program #2 

00010 TEF FNSCA) = A™A O0010 TEF FNS(X) = X°X 
00020 FOR I = 1 70 3 00020 FOR I = 1 TO &S 
00030 FRINT IrFNSC(T) 00030 PRINT IsFNSC(T) 
00040 NEXT I 00040 NEXT I 
000350 ENT 00050 ENT 
REALY READY 
RUNNH RUNNH 

1 1 1 1 

ms 4 2 4 

3 27 3 27 

4 2 4 26 

ws $125 a 3125 


These two programs produce the same output. The actual names of the arguments in the DEF statement have no 
significance; they are strictly dummy variables. But the data types of the variables are significant. If the DEF state- 


ment specifies a string variable, then the corresponding areument must be a string. If the DEF statement specifies 


a numeric variable, then the corresponding argument must be numeric. BASIC converts, as necessary, a numeric 
argument to the type (floating point or integer) specified by the variable in the DEF statement. 


The defining expression can contain any constants, variables, BASIC-supplied function, or any other user-defined 
function except the function you are defining. For example: 


10 DEF FNACX) = X°24+3kX+4 
20 TIEF FNE(X) = FNACXK)/2 + FNACX) 
30 DEF FNC(X) = SQR¢6X+4)=1 
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You can include any variables in the defining expression. If the expression contains variables that are not in the 
dummy variable list, they are not dummy variables. That is, when the user-defined function is evaluated, the vari- 
ables have the value currently assigned to them. 


Consider the following example: 


00010 DEF FNB(AyB)=AtX"2 
00020 X = 1 'ASSIGN VALUE TO X 
00030 FRINT FNE(14%87) f1EVALUATE FUNCTION 
00040 X = 2 !'CHANGE VALUE OF X 
O0050 PRINT FNE( 25232) 
PO99SSEND 
READY 

RUNNH 

1S 

2? 


00010 
00020 
00030 
00040 


REALY 
RUNNH 


7 


00001 
00005 
00010 
00020 
00025 
00030 
00035 
00045 
00050 
00055 
00060 
00065 
00070 
00075 
00080 
0008S 
00090 
00100 
00110 
00120 


Note that in this example the second argument (the dummy variable B and the actual argument 87) is unused. 


The expression does not have to contain any of the variables. For example: 


INOTE THIS FUNCTION ALWAYS RETURNS 
1A VALUE OF 6 NO MATTER WHAT 
I'THE VALUE OF THE ARGUMENT IS. 


DEF FNACX) = 4+2 
LET KR = FNAC10)¢1 
FRINT RF 

ENT 


Consider the following example: 


MODULUS ARITHMETIC FROGRAN 
FIND X MOD 

FNM OX» M)=X-MKINTCX/M) 

FING Atk MOL M 
FNACAx By M2 =FNMCAtKyM) 

REM FINI! AxB MOD M 

DEF FNECAyByM)=FNMCAXKBsM) 
PRINT 
PRINT 
PRINT 
rRINT\EP RINT 
GOSUR 800 
FOR I = 0 TO M-1 

PRINT ITs" "3 

FOR J = 0 TO M-1 

PRINT FNACIs JM)» 

NEXT J\NFPRINTN\NEXT I 

PRINT\NE RINT 

PRINT "MULTIPLICATION TABLES MOD" +M 
GOSUB 800 


REM 
REM 
DEF 
REM 
EF 


"ADDITION AND MULTIPLICATION TABLES MOLD M" 


"GIVE ME AN M"SN\INFUT M 
"ADLGITIGN TABLES MOD": 


Continued on next page 
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00130 
00140 
00150 
00160 
00170 
00180 
00800 
00810 
00820 
OO083O 
00840 
00850 
00860 
PIPOP 
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FOR I = 0 TO M~-1 

FRINT Ivy" "3 

FOR J = 0 TO M-1 

PRINT FNBCIy JM) » 

NEXT JNPRINTNNEXT I 
GOTO P9999 

REM SUBROUTINE FOLLOWS 
FRINTNERINT TABC4) 5 
FOR I = 0 TO M~-1 

PRINT Is\NEXT INPRINT 
FOR I = 1 TO 3XM+4 
PRINT "-"s\NEXT INFRINT 
RETURN 

ENT 


RUNNH 


ADDITION ANDI MULTIPLICATION TABLES MOD ™ 
GIVE ME AN M ? ? 


AINITION TABLES MOD 7 


Oo 1 2 3 4 3S & 
0 O 1 2 3 4 3 & 
1 Lt 2 3 4 5 & QO 
= = $§ 4 5 6 0 i 
3 3 4 353 6 0 1 2 
4 4 3S 6 90 1 2 383 
a 3% 6 O 1 2 3 4 
& 6 0 1 2 3 4 §& 

MULTIPLICATION TABLES MOD 7 

Oo 1 2 3 4 SS 6 
0 Oo 9 0 0 0 9 9G 
1 O 1 2 3 4 3 & 
2 0 2 4 6 1 3 =& 
J 0 $8 6 2 3 1 4 
4 Oo 4 1 5 2 6 $3 
a) oOo 3S 3 1 6 4 2 
6 Oo 6 GS 4 3 2 1 


7.6.2 Multi-Line Function Definitions 
Some calculations may require more than a one line arithmetic expression as in the single line DEF statement. 
BASIC’s inulti-line DEF statement allows you more flexibility in defining complicated function values. 


The multi-line DEF statement has the following format: 
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where: 


a represents | to 29 letters, digits, or periods followed by an optional percent sign (%) or 
dollar sign ($) to represent an integer or string function value. 


(b1,b2,b3,...) represents the dummy argument list. 


S107 65,05 represents a list of variables local to the function definition. This list is optional. 


Single and multi-line DEF statements are similar in format. However, multi-line DEFs do not have the equal sign 
expression on the first line. Instead, the function name must appear in a defining position (such as an assignment 
statement) within the function definition. Otherwise, the function value will be set to 0 or null string. 


Multi-line functions can have from zero to any number of parameters. 


The variables specified in the function definition (or DEF statement) can be used only within the body of the func- 
tion. Any variable referred to in the definition that is not a local variable, refers to the variable of the same name 
outside the body of the DEF. This means that variables in the main program are global as opposed to variables 
specified in the DEF statement. 


The FNEND statement signals the physical and logical end of the function definition. The FNEND statement has the 
following format: 


FNEND 
When BASIC executes the FNEND statement, it returns the function value to the calling statement. 
You can also end a function definition with the FNEXIT statement. FNEXIT has the following format: 
FNEXIT 


The FNEXIT statement is equivalent to a GOTO n where n is the line number of the FNEND for the current multi- 
line DEF. The FNEXIT statement is legal only inside a multi-line DEF. 


Most statements can be used within the function definition (between the DEF and FNEND statements). However, 
multi-line DEFs are local to the main program or subprogram (Chapter 11) in which they are contained. No transfers 
are allowed into or out of a multi-line DEF. If you attempt to transfer into the body of a multi-line DEF, BASIC 
will execute the next statement following the FNEND statement and issue a warning message. 


DATA statements are global throughout the program. Therefore, even though they may reside within a function 
definition, the main program can still access them and vice versa. DIM statements within a function are local to the 
function definition if they apply only to local variables. 


You can place a multi-line DEF anywhere in a program. The entire body of the multi-line DEF, as well as the single- 
line DEF, does nol produce code in straight-line execution until it is called. 


You call a function into action by using its name in a statement expression. With the name, you must include the 
actual argument list, one with the same number of arguments as in the DEF statement. The actual arguments can be 
constants, variables, array elements, or expressions. They must be the same data type as the dummy arguments they 
replace. (Whole arrays are not legal arguments.) 


BASIC uses the actual arguments within the function to define the function value. Using dummy arguments in the 


multi-line DEF statement allows you to use the function definition many times with a different set of actual 
arguments. 
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The following example illustrates the use of the multi-line DEF statement: 


00010 DEF FNXZ(ArB)9C 

00020 IF A>B THEN C = 3.4 

00030 REM C WAS INITIALIZED TO ZERO 
00040 FNXZ = AXBtC 

00050 FNEND 

00060 PRINT FNX4263.192.3) 

00070 END 

READY 

RUNNE 


BASIC ignores the function definition, lines 10 through 50, and begins execution at line 60. The PRINT statement 
calls the function with actual arguments to be substituted in the definition. A is larger than B; therefore, C is set 
equal to 3.4. At line 40, BASIC calculates the value to be 10.53. Because the function name is integer (%), the value 
returned to FNX% is 10. 


7.6.2.1 Multi-Line DEF* -— With the standard multi-line DEF argument passing mechanism, you cannot transfer 
into and out.of a function definition retaining global values for variables. There is another method of writing multi- 
line DEFs that allows you to transfer from a function with global variables. This method also uses the DEF state- 
ment, however, an asterisk (*) has been added to the keyword. 

The asterisks (*) tells BASIC that the BASIC-PLUS compatible form of the function definition is being used. This 
form allows you to include the GOTO, ON-GOTO, GOSUB, and ON-GOSUB statements within the body of the 
function to transfer outside the function definition. The variables you define during execution of the function are 
global while the function is still open (before BASIC reaches the FNEND statement). 


The following example illustrates the DEF* method of multi-line DEFs: 


00010 DEFXK FNX(CA) 
00020 IF Ax<3 GOTO 40 
00030 LET A=6\GOTO 100 
00040 FNEND 
00050 LET A=3 
00060 LET C=FNX(4) 
00070 LET D=FNX(2) 
00080 FRINT A 
00090 STOP 
00100 FRINT A 
O0110 GOTO 496 
REALLY 
RUNNH 

& 

3 


STOF at line 00090 of MAIN FROGRAM 


Notice that the values printed for A are 6 and 3 rather than 3 and 3. Line 60 calls the function FNX with an actual 
argument of 4 to replace the dummy argument A. A is greater than 3 (condition tested on line 20); therefore, A is 
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assigned a new value of 6 (line 30). Then BASIC transfers out of the function definition to line 100 and prints the 
current value of A within the function, 6. Execution continues at the next line following the function call. 


The second function call (on line 70) sends BASIC back to the function definition. This time, because A is less 
than 3 (2), BASIC transfers to the FNEND statement. Once the function ends, the value of A is no longer global. 
BASIC prints the value of A outside the function, 3, and then stops. 


You can define multi-line functions either the standard (DEF) or BASIC-PLUS Compatible (DEF*) way.’ However, 
all DEFs in the same program must be written the same way throughout. Functions defined either way must have 
argument lists agreeing in both data type and number. 


NOTE 
Although transfers into and out of a multi-line DEF* 
(BASIC-PLUS compatible) are permitted, random trans- 
fers may produce unpredictable results. 


‘Version 1 of BASIC-PLUS-2 on RSTS/E supports BASIC-PLUS compatible DEF* only for compatibility with 
RSTS/E BASIC-PLUS. Version 2 will support both. 
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CHAPTER 8 
ARRAYS 


8.1 DIMENSIONING AN ARRAY 

Operations on arrays occur frequently; therefore, BASIC provides a special set of statements for array computations. 
These statements each contain the keyword MAT. The MAT statements apply to both lists and matrices, except 
where noted in the text. If you specify an array without subscripts (MAT A), the default is 2 dimensions. 


Although every list has an element 0, and every matrix has a row O and a column O, the MAT statements ignore these. 
In a BASIC program, you reserve storage space in one of two ways: 


1. Explicitly — with a DIM statement (2.6.1) 
2. Implicitly — including an array in a program without the DIM statement 


The MAT statements allow you to alter the number of elements in each row and column of an array as long as the 
total number of elements does not exceed the number previously defined. Changing the size of an array in this way 
is called redimensioning an array. 


In addition to this capability, you can: 


Perform arithmetic operations 

Input array elements or entire arrays from the terminal 
Read array elements from a DATA statement 

Print array elements or entire arrays 


ram a ae 


8.2 INITIALIZING AN ARRAY 
The MAT statements allow you to assign values to individual array elements. The values can be set to all 0’s, all 1’s, 
or 0’s with 1’s along the main diagonal. 


This statement has the following format: 
MAT name=value {[ (DIM1,[DIM2]) ]] 
where: 


name is an array dimensioned either implicitly or explicitly. 
(DIM1,DIM2) are new dimensions for the array. These dimensions are optional. 


value is one of the following: 


VALUE MEANING 


ZER sets the value of all elements in the array to 0. This condition is true of all arrays (except for 
those in a virtual array, MAP, or COMMON area, Sections 9.3, 10.1.4, and 11.2.1 respec- 
tively) when first created. (Does not set row 0 and column 0.) 


CON sets the value of all elements in the array to 1. (Does not set row 0 or column 0.) 
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sets the value of all elements in the array to 0 except for those on the diagonal, which are 
set to 1. This is called an identity matrix. The matrix must be square. (Does not set row 0 
or column 0.) 


sets the value of all elements in a string array to null string. (Does not set row 0 or 
column 0.) 


The first three values apply to numeric and integer arrays, and the fourth applies to string arrays. 


If you do not specify new dimensions with the (DIM1,DIM2) option, the existing dimensions remain unchanged. 


Consider the following examples: 


00010 
00020 
00030 
00040 
000350 
00060 
00070 
00080 


REALY 
KUNNH 


ceoocooocococe 
cococe eoocse 


jp 
-_ 


oc ococeoco cr 
eoco ce corso 


DIM 
MAT 
MAT 
MAT 
MAT 
MAT 
MAT 
END 


a coc cecoce cs 


oo oo oeocorc]eé 


AC1O9190)»9 BC1IS)»s CC20720) 


A = ZER !SETS ALL ELEMENTS OF A = 0 
BR = CON(10) !SETS ALL ELEMENTS OF B = 1 AND REDIMENSIONS B 
C = IDIN(10710) ICREATES AN IDENTITY MATRIX 10X10 
PRINT A$ 

FRINT BG 

PRINT C3 

0 0 6 60 0 6 9 

oo 6 0 0 0 0 

0 0 000 0 0 

0 0 0 0 0 0 0 

0 90 60 0 0 0 0 

o 60 0 6 0 0 0 

0 0 60 0 60 0 9 

0 0 0 0 0 0 0 

0 0 0 60 0 0 0 

0 0 0 6 0 0 0 

fw we wor a 

0 60 0 0 0 0 0 

0 60 0 0 0 0 0 

o 0 0 0 0 0 0 

100 60 060 0 

o 10 60 0 0 0 

0 60 10 0 0 0 

6 oO O 41. 0 oO © 

o 0 0 6 1 0 0 

o 0 0 0 6 i 0 

o 60 00 0 0 14 


To create an identity matrix with IDN, the array must be a square matrix. 
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8.3 MATRIX OPERATIONS 
With the MAT statement, you can perform the following operations with arrays: 


1. Assignment 
2. Addition 

3. Subtraction 
4. Multiplication 
5. Transposition 
6. Inversion 


Each MAT operation statement begins with the keyword MAT followed by an expression to be evaluated. You can 
assign the value of one array to another as in the following example: 


10 MAT A=E 


This statement sets each entry of array A equal to corresponding entry of array B. A is redimensioned to the size of 
array B. 


You can also add and subtract arrays: 


10 MAT A=EBtC 
20 MAT A=E-C 


The first statement assigns the sum of arrays B and C to array A. The second statement assigns the difference 
between arrays B and C to array A. B andC can be either lists or matrices; however, they both must have identical 
dimensions. 
The following statement multiplies two arrays: 

10 MAT A=BAC 
This statement causes array A to be set equal to the product of arrays B and C. A, B, and C must all be 
2-dimensional arrays, and the number of columns in array B must be equal to the number of rows in C. BASIC 


redimensions A to the number of rows in B and the number of columns in C. 


The following statements are illegal in BASIC: 


10 MAT A=AXA: 
20 MAT A=AXE 
30 MAT A=EXA 


Components of array A are needed for the calculation of the expressions after they have already been destroyed. 
These illegal statements cause BASIC to print an error message. 


However, this statement 
10 MAT C=AXKA 
is legal if A is a square matrix. 
You can also perform scalar multiplication of a matrix: 


10 MAT A=CK) XE 
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where each entry in array B is multiplied by the value of K. K is any arithmetic expression and must be enclosed in 
parentheses. 


Array A is redimensioned to array B provided enough space is reserved. 


8.4 ARRAY INPUT AND OUTPUT 
Elements in an array can be accessed with the following statements: 


1. MAT INPUT 
2. MAT PRINT 
3. MAT READ 


8.4.1 MAT INPUT Statement 
The MAT INPUT statement enters values for each element of a list or matrix. The MAT INPUT statement has the 
following format: 


MAT INPUT array(s) 
where: 


array can be one or several lists or matrices separated by commas. 


The keyword MAT INPUT must have a space between the two words. 


BASIC reads data from the terminal as with the normal input statement. The question mark (?) signals that BASIC 
is ready to accept input. 


Unlike the INPUT statement, the MAT INPUT statement allows you to enter a variable number of values into an 
array. You need not supply the same number of elements requested in the MAT INPUT statement; you can include 
fewer elements but not more than requested. 


You can also continue typing data on more than one line with the continuation character, the ampersand (&). You 
terminate the input stream with a line terminator. 


The values you type are entered into successive array elements in row order starting with the first element. If you 
type a variable number of values, you can determine the number of rows and columns you filled with the two 
variables NUM and NUM2. 


If the array is a list, NUM is set equal to the number of elements you enter. If the array is a matrix, NUM is the 
number of rows you enter and NUM2 is the number of elements in the last row. By printing these variables, you 


can see the size of the array. 


If you specify more than one array in the MAT INPUT statement, only the last one can have a variable number of 
elements. You can also redimension an array by specifying a new size in the MAT INPUT statement. 


The following is an example of the MAT INPUT statement: 


00010 [TIM ACS) 
OCO020 MAT INFUT & 


RE ATY 


RUNANH 
P LsePydsxr4eS 
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You cannot include a string constant within the MAT INPUT statement as you can in the INPUT statement. You 
can print the results of your input with the MAT PRINT statement. 


8.4.2 MAT PRINT Statement 
The MAT PRINT statement has the following format: 


MAT PRINT array(s) 
where: 


array(s) | without subscripts causes the printing of the entire array. Subscripted array causes the maximum 
size of the array (defined by the subscript) to be printed. (It does not redimension the array.) 


MAT PRINT must have a space between the two words. 


If you follow the array with a semicolon(;), the data values print in a packed fashion. If you follow the array with 
a comma (,), the data values print across the line with one value per print zone. If neither character follows the 
array, each element prints ona separate line. All but the last array in a list must have a comma or a semicolon, 
separating it from the next array on the list. 


Each row of a matrix starts printing on a new line. You can print one-dimensional arrays (lists) in either row or 
column format. For example: 


QOOO10 TIM ACS) 
00020 MAT INFUT A 
00030 MAT FRINT A 
090040 MAT FRINT Ay 
O0O0SO MAT FRINT As 
00060 ENT 


REATLIY 
RUNNH 
Po 


Oo occ 


| 
© 
cS 
© 
Co 


ras fay fy YY 
wf NV WwW we 


rs 
Notice that only one value was typed in response to the MAT INPUT. The remaining elements retain a value of 0. 


When you specify more than one array, BASIC begins printing each array starting on a new line. (BASIC never 
prints row 0 and column 0 when using the MAT PRINT statement.) 


8.4.3 MAT READ Statement 
The MAT READ statement reads the values into elements of a 1- or 2-dimensional array from DATA statements. 


The MAT READ statement has the following format: 


MAT READ array(s) 
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where: 


array(s) | without subscripts indicates that the entire array is read. Arrays with subscripts cause the array to 
be redimensioned. 


MAT READ must have a space between the two words. 
The maximum size of the array cannot exceed the previous dimensions. 


BASIC reads the values from DATA statements in the same manner as the READ statement. (Row 0 and column 0 
are not affected.) The DATA statement must contain enough data. You cannot input a variable number of elements. 


Consider the following example: 


00010 DIM B22) CC2%2) 
00020 MAT REAL B 

00030 MAT REAL C 

00040 MAT A=EB4+C 

00050 MAT PRINT A> 

90060 MAT FRINT #3 

00070 MAT FRINT C3 

O0080 DATA 1s2932425969798 


REATY 
RUNNH 
6 38 
10 12 
i. 2 
3 4 
yo © 
7 8 


8.4.4 MAT Functions TRN, INV, DET 
The TRN function has the following format: 


MAT array=TRN(array) 


The function interchanges the dimensions of an array and renames it. A matrix with m rows and n columns will 
be renamed and redimensioned to n rows and m columns. For example: 


00010 DIM B(375) 

O6026 HAT READ & 

00030 MAT A=TRNCB) 

00040 TATA 1lv27327425 
QO00O5S0 DATA 6277899210 
90060 TATA 112912213914915 
00070 MAT FRINT #3 


00080 MAT FRINT As 


READY 
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RUNNH 

1 2 3 4 8 

6 7 8 9 190 

11 12 13 14 #15 
1 6 fii 

2 7 12 

3 8 13 

4 9 14 

2 10 15 


Note that MAT A=TRN(A) is illegal. 


If you want to find the determinant of a matrix, you must first find the inverse. Use the INV function for this 
purpose. The INV function is used as in the following example: 


10 MAT A=INVCB) 


The INV function allows matrix A to be the inverse of matrix B. (B must be a square matrix.) BASIC redimensions 
A to be the same size as B. 


NOTE 
Although matrix inversion does not operate on the ele- 
ments of row 0 and column 0 of a matrix, BASIC does 
store intermediate results in these elements of an 
inverse. 


Therefore, the values of the elements in row O and 
column 0 of an inverse matrix may change. 


The function DET is available after the inversion. You can then use DET as a variable set equal to the value of the 
determinant of B. Consequently, you can obtain the determinant of a matrix by inverting the matrix and then 
noting the value of DET. For example: 


Q0010 MAT A INVCXIN\DM=NET 

00020 MAT B = INVCADN\D2=2ET 

00030 IF D1 = [2 THEN FRINT "“"RELATIONSHIF TRUE" 
00040 FRINT [it 


li 


i 


NOTE 
If you specify a list rather than a matrix, BASIC cannot 
complete the inversion. Therefore, DET is set equal to 
0, 
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CHAPTER 9 
WORKGYING WITH FILES 


9.1 FILES 
There are three types of files in BASIC: 


1. Terminal-Format files 
2. Virtual Array files 
3. Record files 


To distinguish one file from another, you must label it with a file specification. The file specification usually con- 
tains the device name, the file name, and the file type. Because each system has its own constraints, refer to your 
User’s Guide for details. 


The following sections describe terminal-format and virtual array files. Record files are described in Chapter 10. 


9.2 TERMINAL-FORMAT FILES 

A terminal-format file is a collection of ASCII characters stored in lines of various lengths. The end of a line is 
determined by a line terminator, i.e., line feed. BASIC stores these ASCII characters, including spaces and line 
terminators, exactly as they would appear on the terminal; hence the name terminal-format file. 


Terminal-format files are sequential access files. Sequential access files are those files that contain information that 
must be read or written one item after another from the beginning of the file. This means that you cannot retrieve 
an item from the file without first retrieving all the items preceding it. 


BASIC has a file pointer that keeps track of where you are in the file. To add new items to an existing file without 
overwriting current information, you must read the entire file. This action places the file pointer at the end of the 
file where you can add data. Section 9.2.1 describes your options. 

9.2.1 Opening Terminal-Format Files 
Before you can access a terminal-format file, you must open it. The OPEN statement allows you to open a new file, 


or an existing file, and associate the file with a file number. 


The OPEN statement has the following format: 


OPEN filename exp rox re | AS [[FILE]] [[#]] expression 


OUTPUT 
T access {READ T TALLOW Beye 
WRITE i 1 READ f 
MODIFY 
SCRATCH 
APPEND 


[LINVALD line no. J] [J, LOCKED line no. J] 


9-1 


Working with Files 


where: 


filename exp is a file specification. 
FOR INPUT specifies an existing file. 


FOR OUTPUT _ specifies creation of a new file. Ifa file exists with the same file specification, the existing 
file is superseded. 


expression is the file number. It can be any numeric or integer expression with a value between 1 and 
the maximum allowed by your system. 


FOR INPUT and FOR OUTPUT are both optional. If you omit this part of the statement from the OPEN state- 
ment, BASIC checks first for an existing file (FOR INPUT). If no file exists with the name specified, BASIC opens 
for the creation of a new file (FOR OUTPUT). 


The ACCESS, ALLOW, INVALID, and LOCKED clauses are optional attributes that you can specify (in any order) 
when opening a file. The ACCESS clause defines both the position of the file pointer and the operations you can 
perform: 


READ The file pointer is at the beginning of the file. You can only read the file. 

WRITE The file pointer is at the beginning of the file. You can only add data to the file. 

MODIFY This is the default. The file pointer is at the beginning of the file. You can read and write 
to the file. 

SCRATCH The file pointer is at the beginning of the file. You have complete access to the file; read, 


write, and truncate the file. 


APPEND The file pointer is at the end of the file. You can only write to the file at this point. 
The ALLOW clause defines what you allow other users to do to the file while you are using it. 


NONE is the default. No one can read or write data while you have the file open. 
READ allows others to read the file while you are using it. 


Note that you cannot specify an ALLOW clause if you ACCESS SCRATCH. 


‘The INVALID clause specifies the line number of : an ‘error-handling routine. This routine takes effect if the OPEN: 
fails, ice.. »you species an een file espe at If yolk do. not include | INV ALID, BASIC takes « over ie error 
handling. ce SIGS Be 8 os ENG cer Ss Geass MSS ag feos 


: The LOCKED saues algo saeco the line unber Of: an vonroeinailng autings ‘This r routine ae effect if the a 
: is locked because another user Apeated ALLOW NONE. at a oo not rapecty | LOCKED, BASIC takes over the 
error handling. © Beret TES 


Table 9-1 describes the results of specifying the keywords in the OPEN statement. 
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TABLE 9-1 OPEN Statement 


Initial File Position I/O Operation 


READ beginning read only 


WRITE beginning write only 
MODIFY beginning read or write 
SCRATCH beginning read, write, truncate 
APPEND end write 





Consider the following example: 


00010 OFEN °DATA1" FOR INFUT AS FILE 1»ACCESS APPEND 
00015 N=5 

00020 OPEN "MONEY" FOR OUTPUT AS FILE N 

00030 END 


Line 10 opens an existing file at the end and associates it with file 1. Line 20 creates a new file specified by MONEY 
and associates it with file 5. Ifa file named MONEY already exists, BASIC supersedes it with the new request. When 
you open a file and associate a file number to it, you use that number when referencing the file, e.g., DATA1 is #1, 
MONEY is # 5. 
To save files for future use, you must close them. See Section 9.2.2. 
9.2.2 Closing Terminal-Format Files 
All programs that open files should close them before terminating execution. Most systems do not save files unless 
they are closed. An existing file with the same file specification may not be superseded until the new file is closed. 
Refer to your User’s Guide to determine what happens on your system. 
BASIC closes all files: 

1. when executing a CHAIN statement Section 11.2 

2. When executing an END statement 

3. after executing the highest numbered line in the program. 


Note that BASIC does not close files after executing a STOP statement. 


A more specific way to close files is with the CLOSE statement. The CLOSE statement closes the files you specify 
and disassociates them from their file numbers. After you close a file, you cannot access it without reopening it. 


Unlike the first three methods, the CLOSE statement allows you to specify which files you want closed. 
The CLOSE statement Iras the following format: 

CLOSE (| [4] expression(s) |] 
where: 

expression(s) specifies one or more file numbers, separated by commas. 


If no expressions are specified, BASIC closes all open files, 
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The following examples illustrate the CLOSE statement: 


00010 CLOSE #1 !CLOSES FILE ASSOCIATED WITH FILE 1 
00020 B=4 eee 
00030 CLOSE 2/By6+1 !CLOSES FILE NUMBERS 27477 
00040 CLOSE !CLOSES ALL FILES 


9.2.3 Reading Data From A Terminal-Format File 
The INPUT # statement reads data stored in a terminal-format file and assigns a value to each variable listed. 


The INPUT # statement has the following format: 


INPUT # expression, variable(s) 


where: 
expression is the file number of the terminal-format file. If the value of the expression is zero, 
data are input from the terminal rather than a file. The comma is required. 
variable(s) is one or more variable names separated with commas. 


The INPUT # statement acts very much as the INPUT statement described in Section 3.1.1. However, the INPUT # 
statement requests data from a terminal-format file rather than from you. In order to INPUT # from a file, you 
must OPEN for ACCESS READ, MODIFY, or SCRATCH. If you OPEN with ACCESS APPEND, you must 
RESTORE # the file before you can read it. See Section 9.2.5. 


Consider the following example: 


00010 OFEN "NAMES" AS FILE #2» ACCESS READ !ORENS EXISTING FILE 
00020 INFUT #2/A¢%sRk !READS A STRING ANY A NUMERIC FROM FILE 
00030 PRINT AtsR !FRINTS RESULTS ON TERMINAL 

00040 GOTO 20 


QO00S0 END 

REALY 

RUNNH 

SARAH 187.2 
TONY 117.45 
LORRAINE 2OO 
JAY B89 


Po4il End of file found on INFUT at line 00020 of MAIN FROGRAM 


If this example had been written with an INPUT statement, BASIC would have stopped and printed a question mark 


to request data from you. tnstead, the INPUT # read the data into the program from a previously stored terminai- 
format file. 


BASIC starts reading data from the beginning of the file. If the line of data in the file contains more data than there 
are variables in the INPUT # statement, BASIC ignores the excess data. However, if there is not enough data on the 
line, BASIC looks for more data on the next line of the file. If you try to INPUT # from a new file or a file OPENED 
with either ACCESS APPEND or ACCESS WRITE, BASIC prints an error message. 
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9.2.3.1 The INPUT LINE # and LINPUT # Statements — The INPUT LINE #and LINPUT # statements have 
the following format: 


INPUT LINE # expression, variable(s) 
LINPUT # expression, variable(s) 


where: 
expression is the file number of the file where the data resides. If the number is zero, BASIC inputs 
data from the terminal. The comma is required. 
variable(s) one or more string variables separated by commas. 


The INPUT LINE # statement reads a string of characters from a terminal-format file into each respective string 
variable in the list. All characters on the input line including commas, quotation marks, and the line terminator are 
assigned to the string variable. 


The LINPUT # statement also reads an entire line of data into the program; however, it does not include the line 
terminator. 


The following example illustrates both statements: 

AS #1 

FOR A FROGRAM,. "* 
LINE" 


00010 
00020 
00030 


OPEN "TEST" 
FRINT #1%"DATA» 
FRINT #1» "SECOND 


00035 
00040 
00050 
00040 
00070 
0007S 
00080 


RESTORE #1 
INFUT LINE #15 
PRINT A$ 
LINFUT #1, 
FRINT A$ 
CLOSE #1 
END 


AS 


At 


REATIY 
RUNNH 


DNATA» FOR A FROGRAM. 


SECOND LINE 


Line 10 opens a file named TEST and associates it with FILE 1. Lines 20 and 30 write data into the file. The 
INPUT LINE # statement requests a line of data from the program, BASIC reads the entire line, including the line 
terminator, into the program. If an INPUT # statement had been used, BASIC would have read only “DATA” into 
the string variable A$. 


The LINPUT # statement on line 60 requests another line of data. This time BASIC reads all characters into the 
program except for the line terminator. 


9.2.4 Writing To A Terminal-Format File 
The PRINT #statement writes data into the specified terminal-format file. The PRINT # statement has the follow- 


ing format: 


PRINT # expression, list 
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where: 
expression is the file number of the terminal-format file. If the value of the expression is zero, BASIC 
prints the data on the terminal. 
list contains the items you want printed. The items can be any numeric, integer, or string 


expressions. Separate the items with commas or semicolons. The resulting ouptut format 
is the same as the simple PRINT statement. 


If there are no items in the list, BASIC prints a blank line to the file. To PRINT # to a file, you must OPEN with 
ACCESS WRITE, MODIFY, SCRATCH or APPEND. 


The PRINT # expression USING statement prints formatted data to a file (see Section 4.4). 
Consider the foJlowing example that creates a terminal-format file from data stored in DATA statements: 


00010 OFEN “NAMES" FOR QUTFUT AS FILE 1 
00020 READ Ag» A !READ DATA FROM PROGRAM 
00030 IF A$="" THEN 100 !CHECK FOR LAST ITEM 
00040 PRINT #1, ASs"y"*sA IFRINT TWO ITEMS 
00050 GOTO 20 

00060 DATA "SARAH" 2187.22" TONY" 9117.45 

00070 DATA “LORRAINE 200% "JAY" +89 

00080 TATA ""20 

00090 CLOSE #1 

00100 END 


After you run this program, the file NAMES contains the following: 


SARAH 187.2 
TONY 117.45 
LORRAINE 200 
JAY 89 


9.2.5 Restoring A Terminal-Format File 
The RESTORE # statement resets the specified terminal-format file to its beginning from the current position of the 
file. 
The RESTORE # statement has the following format: 
RESTORE # expression 
where: 


expression is the file number of the terminal-format file. 


After printing into a file, you can bring the file pointer back to the beginning with the RESTORE # statement. 
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00010 OPEN “NEW" AS FILE 1 

00020 PRINT #17 6539 "9 "3809 % e295 
00030 RESTORE #1 

00040 INFUT #1%ArBxC 

00050 PRINT AvBrC 

00060 CLOSE #1 

00070 END 


READY 
RUNNH 
65 80 Pet 


9,2.6 Checking for the End of a Terminal-Format File 
The I[FEND #statement has the following format: 


IFEND #expression THEN statement \ 
Or line number 
IFEND # expression GOTO line number 


where: 
expression is the file number associated with the file. 


With the IFEND # statement you check for the end of the file. If the file pointer is at the end, you can transfer 
control to another line of the program or execute a statement. 


9.2.7. The IFMORE Statement 
The IFMORE statement has the following format: 


IFMORE #expression THEN statement  Pebione 
line number line number | 


or 
IFMORE #expression GOTO line number 


where: 
file exp is a file number of a terminal format file, 
statement is any legal BASIC statement except DATA, DEF, DIM, END, FNEND, IMAGE, NEXT, | 
REM, SUB, SUBEND,-UNLESS, UNTIL, WHILE. 
line number is any valid line number in the program. 


IFMORE tests whether the file pointer is at the end of the file specified. If NOT at the end, BASIC executes the _ 
statement or goes to the line number specified. 


9.2.8 The NODATA Statement 
_ The NODATA statement has the following format: 


NODATA (*]] expression, line number 
~ where: 
([#]] expression, is a terminal-format file number. 


line number is any valid line number in the program. 
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When you specify NODATA with a file number; 
NODATA #6, 45 


BASIC checks for the end of the file, i.e., no data. If at the end of the file, BASIC ‘transfer control to the especie , 
line number. | 


| If vou ae vot speci) a file number, (e.g., NODATA 110) BASIC tests to see if all the * DATA for that program or 
-subprogram has been exhausted. If there is no data ler control hee to 9: the line specified in the NODATA 
statement. es | 


| 9.2.9. Changing Margins 7 “ : 
The MARGIN statement allows you to modify the margin spitine: of a terminal- format file or the margin setting of 
yout ee The MARGIN statement has the ceveeien ie format: heey eS ee 


MARGIN UF] « expression, num exp 
: Shee. ve wy 


~ file exp = js the file number of the terminal-format file. If you do not t specity this argument, your 
DT leat ot terminal ey is ipa ) ; 





i Consider these examples: 7 
00010 MARGIN 5 


00020 FRINT “#"% FO Re ree See rare ore 
po O02 Ue RE ne eee 





REALTY Posse ee Re nes S 
PR UNNH a ttc re ES ee ae etait Aro) SU ae ee ORS cgi 0 
REBORN a ee 

#4084 eae | ee 2 edge nr SO gee akan PUGS eo 


This example changes the terminal width to:5. To change back to the default, ts Types: 
10 MARGIN aman : 

= following example changes the margin of a terminal-format file: | : 3 | ° 
40 MARGIN #4) 1320. ice 


9.2.10 Setting Page Size’ - | fae - | a 
Normally, output to a terminal- format file and toa terininal 4 are not divided into pages. The PAGE s statement {allows 
yous to set a page size of any positive number of lines. eee | | 


Toot PAGE statement has s the e following format: 


PAGE ales vier num 1 exp 
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where: 
file exp is the file number of a terminal-format file. [f omitted, the PAGE setting affects the 
terminal. 
num exp is any numeric expression. It is truncated before the page size is set. 


The page size remains in effect until: 


1. The page size is set again with the PAGE statement. 
2. Execution ends. 
3. The file is closed. 


At the end of program execution, the terminal is reset to its mode at program entry. 


When a PAGE statement is executed, BASIC ends the current output line Gif necessary) outputs a form-feed, and 
starts counting lines beginning with the next line of output. As soon as a new page is necessary, a form-feed is 
output. 


9.3 VIRTUAL ARRAY FILES 

A virtual array file, like a terminal-format file, is information stored on a system device (disk). Once you open a 
virtual array file, the similarity with terminal-format files ends. There is no need for the INPUT #, INPUT LINE #, 
LINPUT # PRINT #, or RESTORE # statements with virtual array files. You access elements in a virtual array 
exactly as you access elements in an array in memory. (See Sections 2.6 and 2.6.1.) In fact, you can use virtual 
arrays just as you would regular arrays, see Chapter 8. 


Virtual array files are random access files. You can read or write any element in the file no matter where it is 
located. The last element in a virtual array can be accessed as quickly as the first. Contrast this with a terminal- 
format file where you must read the entire file to get to the last element. 


When BASIC stores data in a virtual array file, it does not convert them to ASCII characters but rather stores them 
in the internal binary representation. Consequently, there is no loss of precision caused by data conversion. 


You must define storage space for a virtual array file just as you do for a regular array. The DIM # statement 
(Section 9.3.1) allows you to set parameters for the file. Unlike arrays in memory, you must specify the maximum 
character length of strings in a virtual array file. Strings longer than the maximum are truncated. Strings shorter 
than the maximum are padded with trailing nulls. 


9.3.1 Dimensioning A Virtual Array File 
To use a virtual array file, you must first define its size with a DIM # statement. The DIM # statement has the 
following format: 

DIM #num constant, array(s) [[ =number]] 


where: 


num constant is the file number associated with the virtual array file. 
array(s) is one or more 1|- or 2-dimensional arrays separated by commas. 


=number is the maximum length of a string array if any are specified. The default is 16 characters. 


For example: 


10 IM #2, ACIS 920) »BCS0) »C$C19)=10 
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The DIM # statement establishes the number of subscripts allowed for each virtual array, and the maximum values 
for each. In addition, the DIM # statement allocates all space for the virtual arrays associated with a particular file 
number. Storage allocation always starts at the beginning of the file. Therefore: 


100 DIM #1, ACLOO) +s RCLO0) 


10 DIM #1s AC100) 
20 DIM #2» BC100>) 


do not perform the same function. Line 100 allocates 202 elements on file number one. While lines 10 and 20 
allocate only 101 elements on file number 1. Each element has two names in this case. 


When you specify a virtual array of strings, you should indicate the maximum length of each string. If no maximum 
is specified, the default is 16. 


To correctly access the data in an existing virtual array file, ensure that the DIM # statement specifies the same data 
type and subscript as in the program which created the file. The variable name associated with the file can be 
different from the original as long as the data type is the same. 


9.3.2 Opening and Closing Virtual Array Files 


To open a virtual array file, you use the OPEN statement with a few variations. The virtual array OPEN statement 
has the following format: 


OPEN filename exp [TFOR porte a ([FILE]} [[#]] expression 
OUTPUT 


,[[ORGANIZATION]] VIRTUAL 


,ACCESS {READ ,ALLOW | NONE 
MODIFY READ 
WRITE MODIFY’ 
WRITE’ 


[LNVALDD ine no.J] [[,LOCKED line no] 


where: 
filename exp is a file specification. 
FOR INPUT specifies an existing file. 
FOR OUTPUT specifies the creation of a new file. 
expression is the file number. It tan be any numeric or integer expression with a 


value between 1 and the system maximum. 


ORGANIZATION VIRTUAL specifies a virtual array file. The keyword ORGANIZATION is optional. 


ACCESS READ allows read only. 

ACCESS WRITE allows write only. 

ACCESS MODIFY allows read and write operations. This is the default. 

ALLOW NONE No simultaneous access. 

ALLOW READ allows others to read while you have the file. This is the default. 


1 This feature is not available on the DECSYSTEM-20 until Version 2. 
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ALLOW MODIFY’ allows others to read and write while you have the file. 

ALLOW WRITE! allows others to write while you have the file. 

INVALID line no. specifies a line in the program where your error-handling routine resides. 
LOCKED line no. specifies a line in the program where your error-handling routine resides. 


The ORGANIZATION clause determines the file to be a virtual array as opposed to a terminal-format file. The 
ORGANIZATION clause is not allowed in a terminal-format OPEN statement. The rest of the attribute clauses may 
be specified in any order. 


Consider these two program lines: 


10 DIM #2 FC1O00%20) 


290 OPEN “VARAY" FOR OUTFUT AS FILE #2 VIRTUAL 
This program opens a virtual array file as FILE 2 and allocates 1,111 elements of storage space, i.e., 100 x 10 plus 


the 0 elements. 


As an example of a use of virtual array files, consider the problem of an information retrieval system for a small 
organization. Assume there are 1000 employees each needing a 255-character record containing the name, home 
address, home phone, work station and phone extension. If this information is maintained in a terminal-format 
file, it would take a long time to locate the information for any employee and it would be impossible to update. 
Alternatively, these records can be maintained in a virtual array file. In this case some index is needed to associate 
a particular employee with a record. 


In the following example, an index file containing badge numbers is used to find the record in the master file. The 
employee’s badge number is in the same position in the index file as the record is in the master file. It is much faster 
to search through the index file because the data elements are much shorter, and less time is spent reading data from 
the file. This example program prints the employee’s name based on the badge number. 


QO0010 DIM #1%82¢°01000) 

00020 TIM #€298h$ C1000) 2255 

00030 OPEN "BADGE" AS FILE i»VIRTUAL 
00040 OFEN "MASTER" AS FILE 2» VIRTUAL 
QOO0S0 FRINT "WHAT IS THE BANGE NUMRER" > 
00060 INFUT N 

00070 FOR I“z=1 TQ 1000 

QO0080 IF BACIZ)=N THEN 200 

00090 NEXT Iz 

00100 FRINT "NO SUCH EMPLOYEE" 

00110 GOTO 99000 

00200 FRINT "NAME IS" SEGSCRECIA) 910K 30%) 
PRC00 CLOSE tise2 

P9999 ENT 


To close a virtual array file, use the CLOSE statement described in Section 9.2.2. 


9.4 FILE RENAMING AND DELETION 
The following sections describe the process of renaming a file and deleting a file from storage. 


1 This feature is not available on the DECSYSTEM-20 until Version 2. 
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9.4.1 The NAME-AS Statement 
The NAME-AS statement has the following format: 


NAME string 1 AS string 2 
where: 


string 1 is the file specification of the file to be renamed. 


String 2 is the new file specification. 
For example: 
10 NAME "MONEY" AS “ACCNTS* 
This statement changes the file named MONEY to ACCNTS. 
The NAME-AS statement does not alter the contents of the file. It renames the first file specified to that of the 
second file without changing the file number. If you use the NAME-AS statement on an open file, the new name 


does not take effect until the file is closed. See your User’s Guide for system dependent file specifications. 


9.4.2 The KILL Statement 
The KILL statement has the following format: 


KILL string expression 
where: 

string expression is the file specification of the file you want deleted from storage. 
After you delete a file, you cannot open it or access it in any way. For example: 

10 KILL "DATA" 


deletes the file DATA from storage. 
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10.1 RECORD FILES 
In addition to the two files discussed in Chapter 9, terminal-format and virtual arrays, BASIC provides another 
method for storing information, the record file. A BASIC record file is a collection of related data stored in the 


form of records. You determine the size and content of the records and the structure and access properties of the 
file. 


Programs can write records into a file and subsequently retrieve them. Each record is treated as a separate unit. All 
input and output is performed on a record-by-record basis via a buffer between the file and the program. 


In order to write BASIC programs that deal with record files, you need to establish the following: 


File organization 
Access method 
Record format 
Record mapping 
File operations 
Record operations 


Nmnh WN 


You also have the option of dynamically mapping I/O buffers. 


These topics are explained in the following sections. For further information on using record files, see the BASIC- 
PLUS-2 User’s Guide for your system. 


10.1.1 File Organization 

The manner in which BASIC stores and retrieves records in a file is determined by the structure of the file. In 
BASIC, the structure of a file is known as the organization. When you create the file, you specify its organization. 
The organization, in turn, determines the operations and access methods that you can use on the file. The three 
organizations you can specify are: 


1. Sequential 
2. Relative 
3. Indexed 


A Sequential file contains records that are stored in series. The order in which the records occur in the file is always 
the order in which they are written to the file. To read a particular record in the file, for example the 15th record, 
a program must open the file and successfully read the first 14 records before accessing the desired record. 


Consequently, records can be added only to the end of a Sequential file because the location of each record is fixed 
in relation to the record preceding and succeeding it. Sequential files are allowed on disk or magnetic tape. 


A Relative file contains records that are stored in numbered locations. BASIC structures the file into a series of 
record positions with each position capable of containing a single record. The number associated with a position 
represents its location relative to the beginning of the file. Thus, record number 1 occupies the first record position; 
record number 2 occupies the second record position, and so forth. 
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Access to a record can be made sequentially or randomly by record number. Relative files are allowed only on disk. 


An Indexed file contains records that are stored according to a table. BASIC sets part of the file aside as an index 
in order to locate these records. Each record is retrieved based on the contents of a field, called a key, in the record. 


When you create an Indexed file, you must specify which field in the record is to be used as the key. Access toa 
record can be made sequentially or randomly by reference to the key. Indexed files are allowed only on disk. 


10.1.2 Access Methods 
The methods that you use to store or retrieve records in a file are called access methods. The access method allowed 
on a particular file is determined by the file’s organization. BASIC allows you to specify one of two access methods: 


1. Sequential 
2. Random 


Sequential access indicates that records are accessed in serial order. Random access indicates that records are accessed 
by record number. 


Table 10-1 shows the relationship between file organization and access methods. 


Table 10-1 Access Methods 


Access Methods 





Sequential yes no 
Relative yes yes 
Indexed yes yes 


10.1.3. Record Format 
A BASIC program must specify the format of records within a file. The format of a record determines.how a record 
physically appears in a file on a storage medium. BASIC allows you to specify one of three formats: 


1. Fixed Length 
2. Variable Length 
3. Stream 


Fixed-length record format refers to records that are all equal in size. Each record occupies an identical amount of 
space in the file. 


Variable-length record format refers to records that are not necessarily equal in length. 


A stream format file contains a series of contiguous ASCII characters. In this case, a record is defined as a set of 
characters delimited by a form feed, vertical tab, or line feed. 


The record format you select is restricted by the file organization. Sequential files support all three formats. How- 
ever, Relative and Indexed files permit only fixed and variable length record formats. 


Note that specifying variable-length format for Relative files does not save space on the disk. Space is allocated for 
the maximum record size for each record position. Records that are smaller than the maximum use only part of 


the space available. 


Table 10-2 shows the relationship between file organization and record format. 
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Table 10-2 Record Formats 


yes yes yes 

yes yes no 

yes yes no 
10.1.4 Record Mapping | 


To access records in a file, you must establish a buffer for input and output. You can name the buffer and describe 
the characteristics of the records in a particular file with the MAP statement. The MAP statement specifies that 
certain variables are contained in the buffer. 


















File Organization 







Sequential 
Relative 
Indexed 





The MAP statement has the following format: 


MAP (name) ALIGNED element(s) 
UNALIGNED 
where: 
(name) is the name you give to the buffer. The length of the name is system dependent. Parentheses | 
are optional. | 


ALIGNED is optional. These keywords refer to the way data is placed in the buffer. ALIGNED is the 
UNALIGNED — default. For more information, refer to the User’s Guide. : 


element(s) is a list of elements, separated by commas, defining the characteristics of the record. Each 
element represents a field in the record. 


A legal element in a MAP statement can be any numeric, integer, or string variable, an entire array, or a FILL. (FILL, 
FILL%, FILL$, FILL$=n, FILL(n), FILL$(n)=m) 


FILL acts as a space holder allowing you to mask parts of a record or hold space for future use. FILL$=m is a string 
of m characters and FILL$(n)=m is n strings of m characters. 


The length of a string variable is specified by the syntax 
A$=n 
where: 


A$ _ is the string variable. 


n is the number of characters in the string. n must be a constant. 
For example: 
10 MAF (CBUFF1) NAME$=25°SSZ%»FILL»AGEZ 
This statement sets up a buffer area named BUFF1 and describes four data fields: 


1. A string field containing up to 25 characters 
2. An integer field 


10-3 


Record I/O 


3. A place holder 
4. Another integer field 


When specifying a string data field, you should define the number of characters in the field. The default is 16 charac- 
ters. Strings in a string field are a fixed length. BASIC stores them left-justified and padded with blanks. For 
example: 


00010 MAF (TEST) BS=7 

00020 OPEN "FILE* AS FILE ty» SEQUENTIAL» ACCESS AFFENDy MAF TEST 
00030 BS=’ARC’ 

00040 CX=LEN(CE$) 

00045 FRINT CZ 

00050 FUT #1 

00060 CLOSE #1 

00070 END 


READY 


RUNNH 
7 


Although the value assigned to B$ is 3 characters long, the length of the string field contains those 3 characters plus 
4 trailing blanks. Its length is 7. 


NOTE 
Variables that are parameters to subprosranis are all 
passed by reference. Therefore, if an actual parameter is 
a variable that is MAPed, execution of a GET inside the 
subprogram will change the value of the dummy 
parameter. 


The following rules apply to MAP statements in a BASIC program: 


I. Ail MAP statements must appear before the OPEN statement in a program and before their variables are 
_ referenced. 


2.0 You can have multiple. maps with the same name. The largest buffer (longest element it list) must tbe specified 
- first. The first map sets up storage allocation. : 
3. T he same variable can appear on the element lists of differentia map statements with the same map name. In : 
et this case, the variable must occur in the same position in each map: F or vexamples: | Os 


100. MAP (RUFF). ArBeC. 
200° MAP CBUFF 1). ArQrC | 


4. If you Bhs an a, in’ a MAP statement, you must dimension it in that statement. If the same array 


5. The length ofa string field ehould be defined: oer. the defaults is 16 characters. 
6. MAPs are local to the MAIN program or subprogram in which they are defined. 


The MAP statement is referenced in the OPEN statement when you create a new file or access an existing file. 
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10.2. FILE OPERATIONS 
When dealing with record files, you are either working with the file as a whole or working with an individual record in 
the file. The following sections describe how to 


Create a new file — OPEN statement 

Access an existing file - OPEN statement 

Close a file — CLOSE statement 

Return the file pointer to the beginning — RESTORE statement 
Truncate an entire file - SCRATCH statement 


hae ae cian ea 


10.2.1 Creating and Accessing a File 

The OPEN statement enables you to create a new file or access an existing file. With this statement you can define, 
explicitly, all the important aspects of each data transfer operation including the structure of the file and its file 
sharing capabilities. You can also include the specification of error returns. 


The syntax of the OPEN statement includes keywords that describe attributes of the file. These attributes are fol- 
lowed, in general, by a name, numeric expression, or line number, and you separate them with commas. 


The following is the general syntax of the OPEN statement for a record file: 


OPEN filename exp ‘i bee AS [FILE] [4] expression 
OUTPUT) |]. 


[ORGANIZATION] frctarive Wan 


RELATIVE VARIABLE 
INDEXED STREAM 
ACCESS. (READ ALLOW (NONE 
WRITE READ 
MODIFY WRITE 
SCRATCH MODIFY 
ered mapname [INVALID line no] 


([LOcKED line no] »DDOUBLEBUF Ne 
BUFFER [[#]]num exp f|| 


seas [| BLOCKSIZE num exp] 

NOSPAN | 

[[BUCKETSIZE num exp] [[,CLUSTERSIZE num exp] 
[NOREWIND] [[conTicuous] 


[PRIMARY [KEY] name] | acetal | 


NODUPLICATES 


NODUPLICATES NOCHANGES 


[[ALTERNATE [[KEY]] name ee i Leieeapee iT 
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where: 


filename exp is asystem dependent file specification. 


FOR INPUT requires that the specified file exist. If the file does not exist, an error results. This error 
causes the OPEN to return to the line specified by the INVALID clause. 


FOR OUTPUT creates a new file with the name you specify. 


If you leave the FOR clause out entirely, BASIC searches for an existing file of the specified name. If the search 
fails, BASIC creates a new file. 


AS [[FILE]] [4] expression 


associates the file with a file number. File number 0 (user’s terminal) is illegal. 


, [ORGANIZATION] SEQUENTIAL 
arranges the records in the file by order of input, i.e., in serial order. 


,[JORGANIZATION]] RELATIVE 
arranges records by numbered position in the file. 


, {JORGANIZATION]] INDEXED 
arranges records so that they can be accessed by reference to a keyed index. 


[[FIXED]] 


specifies that the records are a fixed length. 


[[V ARIABLE |] 
specifies variable length records in the file. Note that if records are variable length, the buffer is padded with 
0’s (nulls) after a GET of a record that is smaller than the buffer. This format is the default for all 3 
organizations. 


[STREAM] 
specifies ASCII stream records. (Sequential files only.) 


[[ACCESS READ]] 
WRITE 
MODIFY 
SCRATCH 
APPEND 
specifies the operations that the current user can perform on the file. 


READ 
allows read only. 


WRITE 
allows write only. 


MODIFY 
allows read, write, delete, and update operations. This is the default for Sequential, Relative and Indexed files. 


SCRATCH 
allows full access; read, write, delete, update and truncate. (Note that a file cannot be accessed by multiple 
users if it is open with ACCESS SCRATCH.) 


APPEND 
allows write access at end of file. 
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[| ALLOW NONE]] 
READ 
WRITE 
MODIFY 
defines what you allow other users to do to the file while you are using it. 


NONE 
specifies a protected file. This is the default for Sequential files. 


READ 
allows read only. This is the default for Relative and Indexed files. 


WRITE 
allows write only. 


MODIFY 
allows read and write access. 


MAP mapname 
references a MAP statement. The map buffer you reference defines the buffer used to store the file’s data 
temporarily. The MAP can also be used to define the record size. 


,RECORDSIZE num exp 
defines the maximum size of records (in characters) in the file. RECORDSIZE must be specified when no MAP 
clause is specified. 


If you specify both the MAP clause and the RECORDSIZE clause in the same OPEN statement, the RECORDSIZE 
overrides the MAP even if the former is smaller. In this case, the RECORDSIZE is the size of the record, and the 
MAP is just a place to store it. 


_[LINVALID line no.]] 
specifies the line number of an error-handling routine. Control transfers to this line if the OPEN fails due to an 
illegal file specification. 


[],LOCKED line no. |] | 
also specifies the line number of an error-handling routine. Control transfers to this line if the OPEN fails 
because the file is locked (protected). 


,DOUBLEBUF 
| [eect [4] :um weal 
signifies the number of buffers used during file operations. The default is 2. DOUBLEBUF has no effect. It 
exists for compatibility with another version of BASIC. 


[| SPAN, NOSPAN]] 
signifies that records are allowed to cross block boundaries. The default is SPAN. 










,BUCKETSIZE num exp 
,BLOCKSIZE num exp 
,;CLUSTERSIZE num exp 
SNOREWIND 
,CONTIGUOUS 
These attributes are system dependent. Refer to BASIC-PLUS-2 User’s Guide for more information. 
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[LPRIMARY [[KEY |] name ]] 
is required for an Indexed file. It defines the name of the Primary index key. The size and location of this key 
is specified in the MAP statement. The name is one of the elements in the list. The key must be a string. Dupli- 
cates are allowed but CHANGES are not. 


[| ALTERNATE|] KEY |] name] 
allows you to optionally define the names of one to 254 Alternate index keys. Alternate keys must also be 
strings. 


Decrepieesacigg | 

DUPLICATES 
NODUPLICATES is the default. If DUPLICATES is specified for a given key of reference, the file can contain 
more than one record with the same value for that key. 


I eee 

NOCHANGES]] 
NOCHANGES is the default. If CHANGES is specified for a given key of reference, the value of the field for 
that key in a given record can be changed. Alternate keys may have changes but the primary key may not. 
Note that the combination CHANGES and NODUPLICATES is illegal. 


The ORGANIZATION clause must be the first attribute specified. The severity of the error is system dependent. 
Refer to the User’s Guide. The other attributes may be specified in any order. 


The following sections describe the OPEN statement as it applies to each file organization. 
10.2.1.1 Opening a Sequential File — The following syntax is used when opening an existing file or creating a new 


Sequential file: 


OPEN filename exp lina i | AS [FILE |] [+] expression 
OUTPUT 


[ORGANIZATION] SEQUENTIAL Wan 


VARIABLE 
STREAM 
ACCESS (READ ,ALLOW (NONE 
WRITE READ 
MODIFY WRITE 
SCRATCH MODIFY 
APPEND 
MAP mapname Lyvaup ti line eno) ‘[L1ockep ni line eno J} 
,RECORDSIZE num exp} © “a 
al {DOUBLEBUF spo num exp || 
‘|| BUFFER a LD num oo 


Lot BLOCKSIZE num ‘eal eee [L NOREWIND]] 
ie 


[L CONTIGUOUS ]] 
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The following example opens a Sequential file: 


20 OFEN "CASE* AS FILE #5 % 
yORGANIZATION SEQUENTIAL STREAM & 
yACCESS AFFPENDy ALLOW NONE» MAF MAFI1 & 
yINVALIDG 120% LOCKED 90 


This statement opens an existing file named CASE, positions the file pointer at the end of the file, and associates the 
file with file number 5. 


The SCRATCH statement allows you to truncate the entire file. This statement is only valid for a file OPENed with 
ACCESS SCRATCH. See Section 10.2.4. 


10.2.1.2 Opening a Relative File — The following syntax opens a Relative file: 


OPEN filename exp [[FOR {INPUT AS [[FILE]] {[#]] expression 
OUTPUT 


[[ ORGANIZATION ]] RELATIVE [] {FIXED 
VARIABLE 


, ACCESS rer ,ALLOW (NONE 


WRITE READ 
MODIFY WRITE 
MODIFY 
,MAP mapname [| BUCKETSIZE num exp || 
,RECORDSIZE num exp 
[| CLUSTERSIZE num exp]] ete 
BUFFER lI] num exp 


|e i 7 [| INVALID line no.]] {] LOCKED line no. |] 


sNOSPAN - 
The following example opens a Relative file: 


110 OFEN "FOO" FOR OUTFUT AS FILE #1 & 
y,ORGANIZATION RELATIVE FIXED,» ACCESS MODIFY» & 


ALLOW READ: MAF TEST» LOCKED 230. 


This statement creates a new file name FOO and associates it with file number 1. Each record in the file has a fixed 
length. The user of the file has read and write access capabilities, while other people can only read records. 
BUCKETSIZE is system dependent. Refer to the BASIC-PLUS-2 User’s Guide. 
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10.2.1.3 Opening an Indexed File — The following syntax opens an Indexed file: 


OPEN filename exp [FOR {INPUT AS || FILE]|[#]] expression 
OUTPUT 


,[[ORGANIZATION]] INDEXED pee 
VARIABLE 


WRITE READ 


ACCESS (READ | ALLOW ( NONE 
MODIFY 


WRITE 
MODIFY 


sMAP mapname 
,RECORDSIZE num exp 







DUPLICATES | a line no. J] 


PRIMARY [[KEY |] name 
NODUPLICATES 


[ ALTERNATE [[KEY]] namel]l] (DUPLICATES CHANGES 
NODUPLICATES NOCHANGES) || 
The PRIMARY key is mandatory for an Indexed file. The following example illustrates the opening of an Indexed 
file: 


YO OFEN "ACCOUNT" FOR INFUT AS FILE #4 2. 


yORGANIZATION INDEXED VARIABLE & 
yACCESS MODIFYs ALLOW NONE & 


»FRIMARY BS» ALTERNATE WAGES$ & 
»MAP BUFF I 


This statement opens an existing file named ACCOUNT and associates the file with file number 4. The records are 
variable length. The primary index key is in the data field B$, and there is one alternate key named WAGES$. Note 
specifying CHANGES with NODUPLICATES is illegal. 


10.2.2 Closing Files 


Record files, as well as terminal-format and virtual array files, should be closed when no longer needed. The CLOSE 
statement, described in Section 9.2.2, is also valid for record files. 


The CLOSE statement has the following format: 





where: 


file number(s) represent one or several files separated by commas. 
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For example: 
65 CLOSE #3 
If you do not specify file numbers, BASIC closes all files. 


10.2.3 Restoring a File 
The RESTORE # statement allows you to bring the file pointer back to the beginning of the file without disturbing 
the data. All file organizations can use this feature. 


The RESTORE # statement has the following format: 
RESTORE # file number [LKEY # num exp |] 
where: 


file number is the file you want to reset. 


s§KEY #numexp is for indexed files only. This allows you to establish a new key of reference. 
For example: 

29 RESTORE #4» KEY #0 
This example brings the file pointer to the index table designated by 0. This is the Primary key. 


10.2.4 Truncating a File 
The SCRATCH statement truncates a file at the current file pointer. The SCRATCH statement has the following 
format: 


SCRATCH [[#]] file number(s) 
where: 
file number(s) is one or more open files. Separate each file number with a comma. 


SCRATCH erases the contents of the file but does not delete the file. To use the SCRATCH statement, the file must 
be OPENed, with ACCESS SCRATCH. See Section 10.2.1. 


10.3 RECORD OPERATIONS 

There are several operations that you can perform on individual records in a file, depending on its organization. 
Record file operations allow you to add, remove, examine, and modify the contents of a file. When writing into 
a file, a program builds records and passes them for storage in the file. When reading a file, a program requests 
records from the file. With BASIC, you can 


Read a record — GET statement 

Write a record — PUT statement 

Locate a record — FIND statement 
Replace a record — UPDATE statement 
Remove a record — DELETE statement 


ee ae 
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The GET statement reads a record from the file into a buffer. 
The PUT statement writes a new record from the buffer to the file. 
The FIND statement locates the specific record in the file and points to it. 


The UPDATE statement replaces an existing record with a new one. You must do a FIND or a GET before you 
can UPDATE. 


The DELETE statement erases an existing record from the file. You must do a FIND or a GET before a DELETE 
operation. 


The following sections describe your options in relation to each file organization. 


10.3.1 Sequential Record Operations 
The following are the operations you can perform on a sequentially organized file. 


GET file exp fle LOCKED line r no o.]] 
L INVALID line no ll 





UPDATE file exp [J MAP line no] [INVALID line no.]} 
COUNT exp 


“ ~ [linvs ALID line r no 0.1) 
; _[LLOCKED: line no.]} 






FIND file exp ‘(LLOCKED Ii line 1 no oJIEINVALID! line n no. 0] 
In a Sequential file, a GET operation is performed on succeeding records starting at the beginning of the file. Each 
successive GET statement retrieves the next record in the file and places it in the buffer identified by the MAP 
statement. If you retrieve a record that is smaller than the buffer, BASIC fills the buffer with nulls. 


A PUT s statement i in a ‘a Sequential file writes the: record on the buffer t to ihe endl ah the file without: truncating ie 2O8 
records. You can write only at the end of a Sequential file without truncating records. When you are writing toa 
“file, you must specify the record size with a MAP or COUNT. The MAP line number in the PUT statement. specifies a 
the size of the RECORD to PUT. It cannot be used to specify a different buffer from that previously specified i in $i 
_ the OPEN statement. If the MAP or COUNT clause | is not Pepecnetst the record s size is s defined vee the MAR or : aS eee 
RECORDSIZE clause i in the OPEN s statement. Recs dria igh spy semi Upurea eae sceesd omer 


In aoe to teopae an. existing frond with the UPDAT Es statement, you must first do. a tee cari GET or : FIND. a 
: You also must specify the size of the record by referencing the MAP line number or giving the actual size in i charac - = 
| ters with COUNT. The si size > of the new record must be the s same : as s the o one e being teplaced. _ ater 





Because you can only access Sequential files sequentially, a FIND operation locates the next record in sequence. 
Note that you cannot DELETE records in a sequential file. 


10.3.2 Relative Record Operations 
The following operations can be performed with a Relative file: 


GET file exp [LRECORD num exp]] 
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PUT file exp [| RECORD num exp]| 


pee line no. 
,;COUNT num exp 
[LLOCKED line no.]] (INVALID line no.]] 


UPDATE file exp || f,MAP line no. 
,;COUNT num exp 


[LLOCKED line no.]} INVALID line no.]] 
DELETE file exp [[, INVALID line no.]] 


FIND file exp | [[ ,RECORD num exp |] | 
| [LOCKED line no.J} — (LINVALID line no.]] 


With Relative files, you are allowed random access as well as sequential access. Therefore, you can specify which 
record you want to GET and PUT. If you leave off the record number in the statement, BASIC will read, write, 

or locate the next record in sequence. Notice that the DELETE and UPDATE statements do not have [| RECORD 
num exp |] as an option. The record number is already specified when you do the necessary GET or FIND operation. 


Some record operations change the value of the record pointer and some do not. In a Relative file, a sequential GET 
and a sequential PUT each modify the value of the record pointer. 


For example: 
00100 GET #7, RECORD 2 ‘'RANDOM RETRIEVES RECORD 2 


00200 GET #7 (SEQUENTIAL RETRIEVES RECORD 3 
00300 GET #7 !'SEQUENTIAL RETRIEVES RECORD 4 


A random GET operation also modifies the value of the record pointer; however, a random PUT does not. Consider 
the following example: 


00300 GET #1,RECORDE 15 'RANDOM RETRIEVES RECORD 15 
00400 PUT #1»RECORD 20 !RANDOM WRITES RECORD 20 
00500 FUT #1 !SEQUENTIAL WRITES RECORD 14 


Note that line 500 PUTs record 16 (not 21) because the random PUT in line 400 did not change the value of the 
record pointer. 


A FIND operation is only relevant if the next operation is a GET, DELETE, or UPDATE. A PUT after a FIND 
invalidates the FIND; therefore, a subsequent GET retrieves the next record rather than the record located by the 
FIND. 


In the following example line 600 PUTs record 11: 


00400 GET #1»/RECORD 10 IRETRIEVES RECORE 10 
060500 FINI #irsRECORE 20 ILOCATES RECORD 20 
00600 FUT #1 IWRITES RECORD 11 


However, in the example: 


00700 FINI: #isRECORD 20 ILOCATES RECORD 20 
OO800 UPDATE #1 REPLACES RECORD 20 


line 800 UPDATEs record 20. 
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10.3.3 Indexed Record Operations 
The following operations deal with Indexed files only: 


EQ 
GET file exp [| KEY #num exp {GT string || 
[LLOCKED line no.]|[JINVALID line no.]] 


PUT file exp [} MAP lineno. YT] 
ULUCOUNT numexpfI] 
{LOCKED line no. ]][LINVALID line no. ]] 


UPDATE file exp [[JMAPlineno. — \T] 
(COUNT num exp } 
[LINVALID line no.J] 


DELETE file exp [INVALID line no.]] 


EQ 
FIND file exp KEY #numexp JGT> string exp]] 
[LLOCKED line no J[LINVALID line no] 


In random access to an Indexed file, you supply a key previously defined in an OPEN statement as a PRIMARY or 
ALTERNATE key. To locate a specific record, specify one of the two key matches: 


1. Exact key match 
2. Approximate key match 


With the exact key match, BASIC looks for the record that matches the value you assign to the key. 


For example: 


00010 MAF CFILE1) SURNAME$=20»GIVENNAMES$=10»SSN$=9 » ADTIRESS$=40% 
»yZIFPCODES$=S5 

00020 MAP CFILEL) NAMES$=302IN$=9,ANNR$=45 

00030 OPEN "ACCOUNT" FOR INFUT AS #52 INDEXED VARIABLEsMAF FILE1,»& 
FRIMARY NAM$S*sALTERNATE SSNS*ALTERNATE ZIFCODES 

00040 GET #5» KEY #1 EQ °013445695" 

00050 GET #5rKEY #0 EQ "MURFHY" 


The map at line 10 defines the record as follows: 
SURNAME$ GIVENNAME$ SSN$ ADDRESS$ ZIPCODES 
The map at line 20 defines the record as follows: 


NAMES$ ID$ ADDR$ 
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The OPEN statement at line 50 defines the keys within the records as follows: 


KEY# Starting Position Length 
0 (PRIMARY) 0 30 
l 30 9 
2 19 5 


When executing line 40, BASIC refers to the keys specified in the OPEN statement. KEY#1 is the first ALTERNATE 
key SSN$. This field is defined in the MAP at line 10. BASIC searches for an exact match of a record with 
013446595” starting at position 30. 


When executing line 50, BASIC again refers to the keys in the OPEN statement. KEY#0 is the PRIMARY key NAM$. 
This key is part of the record described in the MAP on line 20. BASIC searches an exact match of a record with a 
field “MURPHY” in starting position 0. 

The second type of search, approximate key match, allows you to request the record closest to the value you specify. 
The proximity is determined by the ASCII collating sequence. The approximate key search allows your program to 


select either of the following relationships: 


1. Equal to or greater than (GE) 
2. Greater than (GT) 


If the key requested does not exist, BASIC returns the record that contains the next higher key value. This allows 
you to retrieve records without knowing the exact key. 


For example: 


G 
G 


Cigh 


© GET #5/KEY #0 GE "JONES" 
O GET #5»KEY #0 GT “ABRRAMSON" 


CAD 


Line 40 defines the key as PRIMARY and searches for a data field that is greater than or equal to (GE) the value 
“JONES”, e.g., “KNIGHT”’. 


Line 50 also uses the PRIMARY key but searches for a data field greater than “ABRAMSON”, e.g., “ADAMS”’. 
‘““ABRAMSON” is not an acceptable match in this case. 


You can also affect a match by specifying a key value with fewer characters than were specified for the corresponding 
field in the record. The match occurs if the first characters in the field are identical to the key value. 


If you do not specify a KEY, you effect a sequential GET according to the previous KEY specified. BASIC will then 
retrieve the next record in the index according to the ASCII collating sequence. 


When you PUT to an Indexed file you merely specify 
PUT file exp 
BASIC places the record in the proper index. 
In addition to read, write, and find operations, your program can delete any record in an Indexed file and update 


any record. However, during an update operation, be sure that the contents of the modified record do not change 
the Primary key value. You can change alternate key values if CHANGES is specified. 
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10.3.4 Record Locking 

If you plan to allow file sharing (simultaneous access) by specifying ALLOW READ, ALLOW WRITE, or ALLOW 
MODIFY, you should be aware of the correlation between an I/O operation and the locked status of a record. 
Records are locked according to the attributes specified in the OPEN statement and according to the particular 
I/O operation you perform on the record. The ACCESS clause determines the effect the I/O operation has on the 
locked status of a record. 


If you OPEN with ACCESS READ, 


GET locks the record only for the duration of the operation. The record is unlocked when the GET 
is completed. 


FIND’ locks the record until a GET is completed or until another record is accessed with a FIND or GET 
operation. 


If you OPEN with ACCESS WRITE, MODIFY, or APPEND, 


GET locks the record until another record is accessed by a GET, FIND, or PUT operation; or until the 
current record is UPDATEd or DELETEd. 


FIND locks the record until another record is accessed by a GET, FIND, or PUT operation; or until the 
current record is UPDATEd or DELETEd. 


10.4 DYNAMIC MAPPING OF AN I/O BUFFER 

The MAP statement (described in Section 10.1.4) defines the format of a record when that format can be specified 
at compile time. When this is not the case, the MOVE statement can be used to dynamically access the data in a 
record. For example, you can use MOVE to access a record in which the lengths of strings or arrays in the record are 
specified by fields at the beginning of the record. The MOVE statement associates the data in a record with the 
variables you specify in an I/O list. The format of the MOVE statement is: 


MOVE [[{ALIGNED )]]{FROM| file exp, I/O list 
L\UNALIGNEDS |} (TO 


where: 
ALIGNED | os optional. These keywords refer to the way data is placed i in ‘the buffer. ALIGNED i is ‘the: 


_UNALIGNED 3 ~ default. For more information, refer to the BASIC -PLUS- 2 User’ 8 Guide. 


FROM moves the data from the buffer associated with the file number and siaces the data in the 
elements in the I/O list. 


TO moves the data from the elements in the I/O list and places it in the buffer associated with 
the file number. 


file exp is the file number associated with the file OPENed previously. 
, the comma is mandatory between the file exp and the I/O list. 
1/O list is a list of legal elements. 


Legal elements in an I/O list are: 


1. numeric, integer, string variables 
2. arrays 


On RSTS/E, the record is unlocked after the FIND operation is completed. 


10-16 


Record I/O 


3. array elements 
4. fill specifiers 


The length of a string may be defined in the I/O list, e.g., AS=n. The default length for MOVE TO is LEN(AS); the 
default for MOVE FROM is 16. 


An array specified in a MOVE statement must have the following format: 


A() _ list 
A(,) matrix 


Note that row zero and column zero are affected by the MOVE. 
You specify an array element by name, i.e., 

A(25) 
The following are examples of MOVE statements: 


60 MOVE FROM #5» AS»BRyFILLZ»CC ) 
85 MOVE TO #5 ASyByFILLZ~»C¢ ) 


Successive MOVE statements to or from the same file each start at the beginning of the buffer. The size of the 
buffer is not affected by MOVE’s. If a MOVE only partially fills a buffer, the rest of the buffer is unchanged. 


To retrieve a record from a file, first read the record with a GET statement. This places the record in the buffer. The 
buffer can be a system buffer or a buffer you have set up with a MAP statement. 


Then a MOVE FROM places the data from the buffer into the elements in the I/O list. Once the data is associated 
with the elements, you can reference them in the program. 


A MOVE TO moves the data from the elements in the I/O list to a buffer. To move the data into a file, you do a write 
operation with the PUT statement. 


Consider the following program: 


00010 OPEN "MOVE.DAT* AS FILE #1 ORGANIZATION SEQUENTIAL» & 
ACCESS MODIFY» ALLOW NOWNEs RECORDSIZE SO 

00020 GET #1 

00030 MOVE FROM #1» Ivy AtS=I]I 

00040 AS$=AS + “y" 

00050 I =I+i 

00060 MOVE TO #1» Ir At=I 

00070 UFTATE #1 

00080 CLOSE #1 

00090 ENT 


This program opens an existing file named TEST, reads the first record into the buffer, and associates the data with 
the variables in the MOVE FROM statement. 


The MOVE TO places the record into the buffer, and the PUT statement writes the record back into file #1. The 
file is closed and the program ends. 
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CHAPTER 11 
PROGRAM SEGMENTATION 


11.1 SUBPROGRAMS 

In addition to functions, and subroutines, BASIC supplies a third method for writing procedures to be used several 
times; subprograms. A subprogram allows you to divide a large task into smaller, more manageable units which, in 
turn, can be accessed individually. 


You can use subprograms in two ways: 


1. asa segment of a main program which can be called several times from the main program 
2. aS a mini program, which can be called by several different main programs. 


In both cases, the subprogram is executed by a CALL statement (Section 11.1.1) contained in the main program. 
The SUB statement marks the beginning of a subprogram and has the following format: 


SUB name [[(dummy argument(s))]] 


where: 
name is the unique name for the subprogram. (The length of the name is system- 
specific.) 
(dummy argument(s)) represent one or more parameter variables and file references separated by 


commas. The variables must agree in type and number with that of the calling 
sequence. (See Section 11.1.2.) 


If you use the SUB statement in a multi-statement line, it must be the first statement in that line. 


The body of the subprogram may contain any legal BASIC statement except for those which affect transfer out of 
the body of the subprogram. Transfers into and out of the body of a subprogram are illegai. 


All variables in a subprogram are local to that subprogram. These local variables are initialized to O or a null string 
upon each entry to the subprogram. Also, any data used from DATA statements are local to the subprogram. The 


DATA pointer in the main program is not affected. 


Exit from a subprogram and return to the main program with the SUBEND statement or SUBEXIT statement. The 
SUBEND statement has the following format: 


SUBEND 

| The SUBEXIT statement has the following format: 

SUBEXIT 

| SUBEXIT returns control to the calling program. It has the same effect as GOTO n, where n is the line number of 


the appropriate SUBEND statement. 
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11.1.1 The CALL Statement 
The CALL statement transfers control to the subprogram, provides a parameter transfer, and saves the state of the 
calling program. 


The CALL statement has the following format: 
CALL name [[(actual argument(s))]] 
where: 


name is the subprogram name defined in the SUB statement. 


(actual argument(s)) is one or more variables, constants, and expressions, separated by commas. 
These parameters must agree in position, type, and number with the dummy 
list in the SUB statement 


You place the CALL statement anywhere in a main program, subprogram, or multi-line DEF. When you reference 
a subprogram with the CALL statement, BASIC replaces the dummy arguments with the corresponding actual 
arguments (Section 11.1.2) listed with the CALL. The subprogram then works with these parameters. 


The following is a SUB statement: 


JOO SUE TEST (AvK$) 


This is a corresponding CALL: 


3O CALL TEST (CyvAS) 
Upon returning to the main program, BASIC executes the statement following the CALL statement. 


11.1.2. Dummy And Actual Arguments ; 

Because you can reference subprograms at more than one point throughout a program, many of the values used by 
the subprogram may change each time it is used. Dummy arguments in subprograms represent the actual values 
passed to the subprogram when it is called. 


These dummy arguments indicate the data type of the actual arguments they represent. The position, number, and 
type of each dummy argument in a subprogram list must agree with the position, number and type of each actual 
argument in the reference to the subprogram (CALL statement). 


Items passed to subprograms can be any legal variable, constant, expression, array, or array element. The value of 
any parameter can be used as a file number in the subprogram. BASIC passes items from the main program to the 
subprogram either by value or by reference. When passing by value, BASIC makes a temporary copy of the value 
in the calling program and uses the copy for calculations in the subprogram. The value in the calling program 
remains unchanged. The following items are passed by value: 


1. constants 
2. expressions 


3. array elements 


When passing by reference or address, BASIC takes the actual value from the location in the main program, uses 
the value in the subprogram, then replaces the value in the main program. In this case, because of calculations in 
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the subprogram, the value passed by reference could change in the main program. The following items are passed 
by reference: 


1. variables 
2. entire arrays 


It is not possible to pass complete arrays by value. Individual elements of a list or table, however, are always passed 
by value. When an individual entry in an array is passed to a subprogram, it is received as a numeric or string variable 
depending on its type. For example: 


YO SUB ELEMENTS (ARRAY) 
20 CALL ELEMENTS ¢(BCIINCS)) 


The CALL passes the copy of the value in array element, BCD(5) to the subprogram. The SUB statement accepts 
the value in the variable name ARRAY. 


If you specify an entire array in either argument list, you do not include the subscript. For example: 


C(_ )is a list 
C(, ) is a matrix 


When you pass an array to a subprogram, its dimensions remain the same as in the main program. It is illegal to use 
a DIM statement on an array you specify in the SUB statement. You can, however, redimension such an array with 
a MAT statement (Chapter 8). The array will also be redimensioned in the main program as well. Arrays local to 
the subprogram must appear in DIM statements within the subprogram. 


Functions can be defined inside subprograms. A function definition is local to the subprogram in which it is defined. 
However, you can pass the value of a function as an expression. 


You can also pass files to a subprogram. BASIC passes the position of the file pointer to the subprogram unchanged 
from its position after the last operation affecting the file in the main program. Any operation on a file in a sub- 
program also affects the file in the main program. 


You can also open a file within a subprogram. The file remains open after BASIC returns to the main program. 
When you include a file reference in a SUB statement, the reference must be a variable name. 


The following example illustrates argument lists in the SUB and CALL statements: 


LISNH 

00010 AZ=SZANBZ=10OZ“4N\CZ=15% 

00020 CALL ARGCEZ) 

00030 CALL ARG(CZ) 

O0040 PRINT "AZ="sAZs "BAS" 9 RAs "CH=" 9 CK 
00050 END 

00060 SUB ARG(DIZ) 

00070 AZ=30% 

00080 DIZ=DZxAZ 

00090 SUBENT 


REATLY 


RUNNH 
A“Z= 3 BA= 300 Cxz= 450 
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Note that on RSTS/E, the main program and any subprograms must be compiled separately. See your User’s Guide 
for details. 


The subprogram ARG is called twice in this program with the CALL statements on lines 20 and 30. The first time 
the subprogram is referenced, the value stored in B% is passed to the integer variable D% to be used in calculations. 


The second CALL statement passes the value stored in C% to integer variable D%. Notice that variables are local to 
the subprogram (A%). Consequently, you can use the same variable name in a main program and a subprogram 
without interference. 


BASIC passes all constants in the CALL statement to the subprogram by value. That is, the value of the constant 
does not change in the main program. However, BASIC passes all variables by reference. The value stored in the 
variable location is passed to the subprogram. Consequently, this value may change in the main program after BASIC 
executes the subprogram. 


The following table summarizes the proper form for variable names, functions, arrays, and files references in SUB 
and CALL statements. 


Table 11-1 Arguments 


Dummy Argument Actual Argument 
Data Type SUB Statement Call Statement 


numeric A B 
integer A% B% 


string A$ BS 

entire list A(), A%(_), ASC) B(), B%(), BSC) 
entire matrix AG), A%(,), A$(G) B(,), B%(,), BSG) 
file A,C 1,N 

array element A D() 





11.2 TRANSFERRING CONTROL TO ANOTHER PROGRAM — THE CHAIN STATEMENT 
The CHAIN statement transfers control from the current program to a program stored in a file. CHAIN first closes 
all files and erases all program lines, arrays and variables. Finally, it loads the program from the file, compiles. ity 


if necessary, and starts the execution of the new program. 


The CHAIN statement has the same effect as an END statement followed by an OLD command and then a RUN 
command. 


The format of the CHAIN statement is 
CHAIN string [[LINE line number |] 
where: 


string is a file specification for the file containing the new program. The string can be 
any String expression. 


[[LINE line number] specifies the line to start execution in the new program. 


If no line number is specified, then execution starts at the lowest numbered line. 
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Consider the following example: 


The file specified by ““SEG1” contains: 


00005 PRINT “SEG1 IS WORKING" IFRINTS IDENTIFYING MESSAGE 
00010 OPEN "DATA1" FOR OUTFUT AS #1 'OFENS OUTFUT FILE 

00020 FOR I = 1 TO 100 IWRITES OUT ALL THE 

00030 PRINT #1» [x2 'EVEN NUMBERS 2 TO 200 
00040 NEXT I 'TO THE FILE 

00050 CLOSE #1 (CLOSES THE FILE 

00060 CHAIN "SEG2.B20° 'CHAINS TO THE NEXT 

00070 END !SEGMENT 


The file specified by “SEG2” contains: 


00005 PRINT "SEG2 IS WORKING" 'FRINTS IDENTIFYING MESSAGE 
00010 OPEN "DATAI" FOR INFUT AS #1 1'OPFENS EXISTING FILE 

00020 FOR I = 1 TO 100 1INFUTS THE NUMBERS 

00030 INFUT #1,» I 1FROM THE FILES 

00040 T = THI fAND AOS THEM TOGETHER 
00050 NEXT I ISTORING THE TOTAL IN T 
00060 PRINT "THE TOTAL IS" sT IPRINTS THE TOTAL 

00070 CLOSE #1 I1CLOSES INFUT FILE 

00080 END 


Arun of these programs produces the following output. 


RUNNH 

SEG1 IS WORKING 
SEG2 IS WORKING 
THE TOTAL IS 2550 


If the specified file does not exist, BASIC prints an error message. To allow the error recovery, BASIC does not 
erase the current program lines, variables, or arrays. However, all files are closed as they normally would be. 


Remember to SAVE a program containing a CHAIN statement before running it, otherwise, the program will erase 
itself from memory. 


11.2.1 Preserving Variables — The COMMON Statement? 
The COMMON statement preserves data passed from one segment of a program to another. Data values associated 
with the names of items in the COMMON statement are placed in a common area. The value assigned will be 


retained when you transfer control from one segment of a program to another with the CALL statement. 


COMMON defines an area that is available to any subprogram that defines it. ‘Thus names need not be the same in 
all routines that access a given COMMON block. 


The format of the COMMON statement is: 


COM [[MON]] [[(mame)]] list 


1The COMMON statement is not available on the DECSYSTEM-20 in Version 1. 
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where: 


(name) is an optional name for the storage block. The name can be 1 to 6 characters. 


list specifies the variables and arrays to be preserved in COMMON. It is in the general form: 


var || (int [Tint] II. var||(int[.int]])]], ane 


The value of each variable in a global common area is position dependent. Therefore, the COMMON statements in 
the program CALLED must specify the same variable types and array dimensions. The line numbers, variable 
names, and arrays of each COMMON statement can be different from the original program. But the order of the- 
variables and arrays must be maintained. 


Consider these examples: 


MAIN Subprogram 1 Subprogram 2 

10 COMMON ArB:C$ 10 COMMON A>B 10 COMMON ArBrT%(100) 
20 COMMON D%(100) 20 COMMON C% 

30 COMMON G$(2) 3O COMMON C$rII%(100) »G$¢(2) 30 COMMON G$(2) 


MAIN and Subprogram 1 have equivalent COMMON statements. Subprogram 2 has a different order of variables; 
D%(100) appears before C$. 


It is possible to extend COMMON by placing additional variables and arrays after the existing ones. For example, 


MAIN Subprogram 
10 COMMON AvxR4~(100) 10 COMMON AzrBZ(100) 
20 COMMON GS(5) 20 COMMON C$(5)sF9 (100) 


30 COMMON A$(30) 


The subprogram has the equivalent COMMON statements and has extended the original COMMON with F9(100) 
and A$(30). 


COMMON lists from all COMMON statements with the same name in a program segment are collected into a global 
common area with that name. The order in which the COMMON list appears textually determines the order of the 
list in the global area. 


The variables in a COMMON list retain their values until an END statement is executed. 
BASIC automatically dimensions arrays that are in COMMON. Therefore, if an array is in COMMON, do not 
dimension it with a DIM statement. If an array is in both a COMMON and a DIM statement, BASIC prints an 


error message and stops program execution. 


If more than one common block is used in a program, all declarations for one block must appear together before 
any declarations for another common block. For example: 


LEGAL ILLEGAL 

10 COM (CBLOCKNAME) A> 10 COM (BLOCKNAME) AsB 
20 COM (BLOCKNAME) C 20 COM X 

30 COM X 30 COM (BLOCKNAME) C 


Variables that you declare in COMMON statements cannot be referenced before the COMMON statements that 
declare them. 
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SUMMARY OF BASIC-PLUS-2 
STATEMENTS, FUNCTIONS, AND OPERATORS 


This appendix summarizes the BASIC-PLUS-2 statements, functions, and operators. The descriptions contain state- 
ment format, examples, and brief notes on statement usage. Section numbers are listed for quick reference. 


STATEMENTS 


CALL 11.1.1 
CALL name ([ (actual arguments) |] 
200 CALL SUBI (A,B) 


The CALL statement transfers control to a specified subprogram, transfers parameters, and saves the state of the 
calling program. Parameters contained in the argument list must agree in type and number with the corresponding 
SUB statement. 


CHAIN 11.2 
CHAIN string [[ LINE line number J] 
15 CHAIN “SEE” LINE 70 


The CHAIN statement passes control to a specified program. If no line number is specified, execution starts at the 
beginning of the program. 


CHANGE 7.4.4 


CHANGE list TO string variable 
or 
CHANGE ‘ string variable a list 
string expression 


25 CHANGE A TO A$ 


The CHANGE statement converts a list of integers (real numbers are truncated) into a string of characters and vice 
versa. The length of the string is determined by the value found in element 0 of the list. 


CLOSE 92:2 
CLOSE 4] expression(s) 
150 CLOSE #6,8 


The CLOSE statement terminates I/ O to a device and writes all active buffers. The number sign and file expressions ‘ 
are optional. When no files are specified, all files currently open are closed._ 


Summary of Basic-Plus-2 Statements, Functions, and Operators 


COM||MoN]] 11.2.1 
COM [[ (name) J] list 
50 COM (TEST) A,B,C 


The COM, or COMMON statement allows you to establish a named storage area that can be shared by 2 or more sub- 
programs. The variables and arrays in the variable list are assigned to the named area and, when accessed by more 
than 1 subprogram, must be of the same data type. The common area name must be | to 6 characters. 


DATA 3.1.3 
DATA constant(s) 
50 DATA 4.3, “string’’, 18, 42% 


The DATA statement allows you to provide a pool of information that is accessible to the program by means of a 
READ statement. A DATA statement must be the only statement on the line and, when you specify more than one 
item, you must separate them with commas. DATA statements cannot be continued. 


DEF (single-line) 7.6.1 
DEF FNa [[ (b1,b2,b3, . . .bn)[]=expression 
10 DEF FNX (A,B)=A*B 


The DEF statement establishes a user-defined function. The function name can be any legal variable name and must 
begin with FN. The variable type determines the function type. The optional arguments represent dummy param- 
eters and cannot contain array elements. The function definition can refer to any of the dummy parameters or to 
other program variables but the definition cannot be recursive. Single-line user-defined functions are local to the 
main program or subroutine in which they are contained. 


DEF (multi-line) 3 7.6.2 


ES SS 


10 DEF FNX (A,B), C 


The multi-line DEF establishes user-defined functions and allows you to include other statements in the body of the 
function. The function name can be any variable name preceded by FN. Any statement can appear in a function 
except SUB, SUBEND, RETURN or another DEF. The DATA and DIM statements are not local to the function 
definition. A GOTO, GOSUB, ONGOTO, or ONGOSUB transfer outside the function is not allowed. The function 
definition must end with an FNEND statement. 


DEF* (multi-line) 7.6.3 


10 DEF* FNZ% 


This statement has been added for compatibility with other BASICs. The distinguishing asterisks appear only in the 
DEF statement and not in program references to the function. The statement permits global references to function 
parameters and places parameter values in global locations. Transfers are allowed into and out of DEF* functions; 
however, random transfers can produce unpredictable results. If you transfer out of the function, be sure to transfer 
in and exit through the FNEND statement. 
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DELETE 10.3 
DELETE file exp [[ INVALID line no. ]] 
60 DELETE #5, INVALID 500 


The DELETE operation is used on relative and indexed files. The operation erases an existing record from the file. 
The INVALID clause shifts control to an error-handling routine if the operation fails. 


DIM[[ENSION ]] 2.6.1 
DIM subscripted variable(s) 
30 DIM B(2,3) 


The DIM statement reserves storage for arrays. The size of the reserved storage is determined by the subscripts, (con- 
stant). A maximum of 2 subscripts is permitted and, when 2 are used, must be separated by a comma. 


DIM # 9.3.1 
DIM # expression, array(s) [[=integer ]] 
50 DIM #2, A(10,15), B(SO) 


This statement allocates space for the specified arrays on the file associated with the logical number. Storage is al- 
located at the beginning of the file such that the right most subscript varies the fastest. The default string storage 
length is 16 and the space is pre-allocated. 


END 5.4 
END 
100 END 


The END statement trerminates program execution and closes all files. It is optional. When used, END must be the 
last statement in the program. 


FIND 10.3 
FIND file exp [| RECORD num exp |] 
GT 
[| KEY # num expr ¢ GE 5 string exp ] 
EQ 


[[ LOCKED line no.]][[INVALID line no] 
50 FIND #7, RECORD 25, LOCKED 120 


The FIND operation causes a RECORD search in the specified file. For sequential files, the FIND starts al the 
beginning of the file and locates each successor record for each FIND operation. Relative files allow the specifica- 
tion of a record number. Indexed files allow the specification of a key or a sequential search through the key 
table. The RECORD and KEY specifications are restricted to relative and indexed files. 


FNEND 7.6 
FNEND 
40 FNEND 


The FNEND statement causes an exit from a user-defined function and signals the function’s logical and physical end. 
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FNEXIT 7.6 
FNEXIT 
70 FNEXIT 


The FNEXIT statement is equivalent to a GOTO n, where n is the line number of the FNEND statement for the cur- 
rent multi-line DEF. FNEXIT is legal only inside a multi-line DEF. 


FOR 5.2.1 
FOR variable=num exp! TO num exp2 ll STEP num exp3]] 
25 FOR I=1 TO 5 STEP 2 


The FOR statement initiates and controls a loop. A simple numeric variable must be used after the FOR, and the 
same variable must appear in the required NEXT statement. The first numeric expression is the initial loop value; 
the second expression is the terminating loop value. The optional STEP expression is the loop increment; +1 is the 
default. Transfer into an uninitialized loop is illegal. 


FOR (conditional) 5.2.3 


FOR variable=num exp1 [| STEP num exp2 || WHILE conditional exp 
UNTIL 
80 FOR I=1 UNTIL I>10 


The conditional FOR statement duplicates the previous FOR statement except that loop termination is determined 
by afalse expression in the WHILE clause or a true expression in the UNTIL clause. 


GET 10.3 
GE 
GET file exp [| KEY # num exp GT \ string exp |] 
EQ 


»RECORD num exp 
IT, 10. INVALID line n no. 





50 GET #5 


The GET operation reads a record from a specified file into a buffer. On sequential files, GET operations are per- 
formed on succeeding records starting at the beginning of the file. Relative files allow the specification of a record 
number, and indexed files allow the specification of a key name. 


GOSUB | 5.5.1 
GOSUB line number 
25 GOSUB 120 


The GOSUB statement transfers control to a subroutine that begins at a specified line number. 


GOTO 5.1.1 
GOTO line number 
40 GOTO 85 


The GOTO statement unconditionally transfers control to a specified line number. 
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IF 5.1.3 


IF conditional exp THEN line number 
GOTO 


IF conditional exp THEN statement(s) 


IF conditional exp THEN line number ELSE J line number 
GOTO statement(s) 


IF conditional exp THEN statement(s) ELSE } line number 
statements 
25 IF A=0 THEN PRINT “A EQUALS 0” 


The various forms of the IF statement allow branches in the program. The IF statement can also cause execution of 
statements except the following: 


DIM, REM, DATA, END, DEF, FNEND, SUB, SUBEND, WHILE, UNTIL, NEXT, and IMAGE. 


IFEND# 9.2.6 


IFEND # expression, ) THEN{ J statement 
GOTO ) line number 
25 IFEND # 6 THEN 50 


The IFEND # statement checks for the end of file. If the file pointer is at the end of the file, you can transfer con- 
trol to another line of the program of execute a statement. 


IFMORE 9.2.7 


IFMORE # expression, ) THEN statement 
GOTO line number 


10 IFMORE # 7 GOTO 100 


The IFMORE # statement tests whether the file pointer is at the end of file. If NOT at the end, BASIC executes the 
statement or goes to the line number specified. 


IMAGE unquoted string 
‘unquoted string 
10. HAH HEHE 


| The IMAGE statement is used in conjunction with the PRINT USING statement. The characters following the colon, 7 


eA TRA AINE AALiA re es format of Cutan. ThA AGE must he the onhy ctatamant an the line and cannoat con. 


: or KCy wora IMAGE, GCciine’ boats bE 


_ HAIN COMMONS oe eas. sili ixtancatetecinndowaat 


INPUT 3.1.1 
INPUT variable(s) 
25 INPUT A,B,C% 


The INPUT statement allows you to type in data to the program from the terminal. The program requests data by 
printing a question mark on the terminal and then waiting for you to respond. 
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INPUT # 9.2.3 
INPUT # expression, variable(s) 
25 INPUT #6, A,B,C 


The INPUT # statement acts very much as the INPUT statement. However, the INPUT # statement requests data 
from a terminal-format file rather than from you. 


INPUT LINE and LINPUT 3.1.2 


INPUT LINE string variable(s) 
LINPUT string variable(s) 


15 INPUT LINE A$, B$ 


The INPUT LINE statement allows a character string (ending with a line terminator) to be input to a specified vari- 
able. The line terminator is included in the string with INPUT LINE but discarded with LINPUT. 


INPUT LINE # and LINPUT # 9.2.3.1 


INPUT LINE # expression, string variable(s) 
LINPUT # expression, string variable(s) 


10 INPUT LINE # 4, A$, BS 
The INPUT LINE # and LINPUT # statements read strings from a terminal-format file. 


KILL 9.4.2 
KILL string expression 
10 KILL “SALARY” 


The KILL statement deletes a file from storage. 


LET 2.5 


LET variable(s)=expression 
variable(s)=expression 


10 A=65 


The LET statement assigns constants and expressions to variables. The keyword LET is optional. 


LINPUT 3.1.2 
See INPUT LINE 
LINPUT # 9.2.3.1 
See INPUT LINE # 
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MAP > 10.1.4 


MAP (name) ALIGNED element(s) 
UNALIGNED 


10 MAP (Buff1) A%, BS, C 


The MAP statement associates a named buffer with a file. Specified data in the element list is moved from the file to 
the buffer on a GET and from the buffer to the file on a PUT. 


MARGIN 9.2.9 
MARGIN [| #expression, ]] num exp 
10 MARGIN 5 


The MARGIN statement allows you to modify the margin of your terminal or terminal format file. | 


MAT INPUT 8.4.1 
MAT INPUT array(s) 
50 MAT INPUT A 


The MAT INPUT statement allows element values to be entered in an array. Input is read from the terminal. Ele- 
ments are stored in row order as they are typed. 


MATRIX OPERATIONS , 8.3 
MAT PRINT 8.4.2 
MAT PRINT array(s) 
120 MAT PRINT A; 


The MAT PRINT statement outputs each element of a specified array. 


MAT READ 8.4.3 
MAT READ array(s) 
50 MAT READ B,C 


The MAT READ statement reads the values into elements of a 1- or 2-dimensional array from a DATA statement. 


MOVE 10.3.4 


MOVE ALIGNED J) FROM(E file exp, I/O list 
UNALIGNED TO 


15 MOVE TO #5, AS, B, C( ), FILL% 


The MOVE statement associates the data in a record with the variables you specify in the I/O list. 


NAMEAS 9.4.1 
NAME string! AS string2 
15 NAME “MONEY” AS “ACCNTS” 


The NAME-AS statement renames a file without changing the contents of the file or the file number associated with it. 
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NEXT 5.2.1 
NEXT variable(s) 
15 NEXT I 


The NEXT statement terminates a FOR, WHILE, or UNTIL loop. The variable must correspond with the variable in 
the initial FOR statement. Nested loops cannot cross each other. 
























ONERROR 5.6.1 
ONERROR GOTO line number 
25 ONERROR GOTO 50 


The ONERROR statement allows control to shift to an error-handling routine. 


ON-GOSUB 5.5.2 
ON num exp GOSUB line number(s) 
50 ON A+B GOSUB 80, 95, 100 


The ON GOSUB statement is used to conditionally transfer control to one of several subroutines or to one of several 
entry points into one or more subroutines. 


ON-GOTO 5.152 


ON num exp GOTO line number(s) 
THEN 


20 ON J% GOTO 85 


The ON-GOTO statement allows you to transfer control to another line of the program. 


ON-THEN 5.1.2 
See ON-GOTO 


OPEN 9.2.1 Terminal-Format 
9.3.2 Virtual Array Files 


10.2.1 Record Files 
OPEN filename exp [[FOR INPUT qT 


OUTPUT 


AS [[ FILE ]] ([# ]] expression 

SEQUENTIAL 
RELATIVE 
INDEXED 
VIRTUAL 


,JORGANIZATION |] VARIABLE 


FIXED 
STREAM 
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READ 
WRITE 
MODIFY 
SCRATCH 
APPEND 
MAP mapname 
,RECORDSIZE num exp 


NONE 

T [[/ALLOow READ T 
WRITE 
MODIFY 


[| ACCESS 


[L INVALID line no.|] [| LOCKED line no.]] 


,sDOUBLEBUF 
BUFFER [4] num exp 


[[ BLOCKSIZE num exp J] 


[ ene I 


sNOSPAN 


(| BUCKETSIZE num exp J] 
[| CLUSTERSIZE num exp] 


[PRIMARY [[KEY]name]] aircteeatiag 
DUPLICATES | 


[LALTERNATE [[KEY]}name spas NOCHANGES 
DUPLICATES CHANGES 


10 OPEN “FILE” FOR INPUT AS FILE 4 


The OPEN statement enables you to create a new file or access an existing file. You can use the OPEN statement to 
access terminal-format files as well as record files. 


PAGE | | ci oa —-9,2.10- 
PAGE [[#expression, ]] num exp | 
20 PAGE #2, 60 


_ The PAGE statement allows you to set a PAGE size of any positive number of lines. 


PRINT 3:2 
PRINT [| expression(s) ]] 
30 PRINT A+B 


The PRINT statement causes the data you specify to be output on the terminal. The expression list can be expres- 
sions, variables, or quoted strings separated by a comma or a semicolon. Commas cause output to terminal print 
zones; semicolons ignore the print zones. 


PRINT # 9.2.4 
PRINT # expression, list 
65 PRINT # 6, A, B+C 


The PRINT # statement writes data into the specified terminal-format file. 
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PRINT USING 4.1 
PRINT USING string, list 
10 PRINT USING “**#.#’, A,B,C 


The PRINT USING statement causes output to be printed in a specified format. The list indicates the elements to be 
printed and the image can be a line reference to an IMAGE statement. 


PUT 10.3 
PUT file exp Faceted num oe) 


{MAP line no. T) 
(COUNT n num 1 eXP 


25 PUT #7, RECORD 1s 


The PUT statement writes a record from a buffer to a specified file. The RECORD clause is used for relative files; 
the KEY clause is used for indexed files. Sequential files allow PUT operations only at the end of the file. The MAP 
and COUNT clauses define the size of the record. 


RANDOMIZE 7.2.3 
RANDOMizE]] 
10 RANDOM 


The RANDOMIZE statement changes the starting point of the RND function to a new unpredictable location. 


READ . 3.1.3 
READ variable(s) 
75 READ A,B%,C$, D(5) 
The READ statement directs BASIC to read from a list of values built into a data block by a DATA statement. 
REM 1.4 
REM comment 
30 REM this is a comment 


The REM statement contains user written comments and has no effect on program execution. 


RESTORE [| #]] (or RESET) 3.1.3 
sal etmranariens ae 
10.2.3 
RESTORE # expression 
30 RESTORE #3 


The RESTORE # statement resets the specified terminal-format file or record file to its beginning from the current 
position of the file. Restore without a file exp restores the data in a DATA statement. 
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RESUME 5.6.1 
RESUME [[line number]] 
50 RESUME 35 


The RESUME statement is the last statement in an error-handling subroutine. If no line number is specified, control 
is shifted back to the point of error generation. If a line number is specified, control is shifted to that line. 


RETURN 5.5.1 
RETURN 
60 RETURN 


The RETURN statement is the last statement in a subroutine. It shifts control to the statement following the last 
executed GOSUB statement. 


SCRATCH 10.2.2.1 
SCRATCH #file exp 
25 SCRATCH #6 


The SCRATCH statement allows you to truncate the file. SCRATCH can only be used if the file was OPENed 
with ACCESS SCRATCH. 


SLEEP 5.3.1 
SLEEP num exp 
10 SLEEP A*B 


The SLEEP statement causes a temporary halt in execution. The length of delay is determined by the value of 
the expression in seconds. 


STOP 5.4 
STOP 
110 STOP 


The STOP statement causes a halt in program execution. Files are not closed and a message indicating the loca- 
tion of the halt is printed. 


SUB 11.1 
SUB name [[ (dummy argument(s)) J] 
40 SUB TEST (A,B%) 


The SUB statement marks the beginning of a subprogram and defines the type and number of subprogram 
parameters. 


SUBEND 11.1 
SUBEND 
25 SUBEND 


The SUBEND statement marks the end of the subprogram and returns control to the calling program. It must 
appear at the end of all subprograms. 
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UNTIL 5.2.4 


UNTIL conditional exp 
50 UNTIL I=0 


The UNTIL statement sets up a loop that must have a corresponding NEXT statement. The loop executes until 
the expression is true. 


UPDATE 10.3 


UPDATE file exp Ty, ‘MAP. ine Sor VW oo 
\.COUNT T exp | q -_ 











The UPDATE statement anes an eexnaned eeuid in the file. The new record size as defined in the MAP or 
COUNT clause, must be the same as the record it replaces. On sequential files, an UPDATE must be preceded 
by a successful GET or FIND. 


WAIT 5.3.2 
WAIT num exp 
40 WAIT 15 


The WAIT statement specifies the maximum number of seconds allowed for input before an error is generated. A 
zero or null value disables the WAIT. 


WHILE 5.2.4 
WHILE conditional exp 
75 WHILE A%<10% 


The WHILE statement also sets up a loop that must have a NEXT statement. The WHILE expression is evalu- 
ated before each loop iteration. If the expression is true, BASIC executes the statements in the loop. If the 
expression is false, BASIC executes the statements following the NEXT statement. 
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FUNCTIONS 
Function Usage 
ABS(x) returns absolute value of x. 
ASCII(x$) returns the decimal ASCII value of the first character of a specified string. 
ATN(x) returns the arctangent of x in radians. 
CHRS(x%) returns the character equivalent of the ASCII value x%. 
CLKS$ returns an 8-character string representing the time of day (hh:mm:ss) 
COS(x) returns the cosine of x. 
DAT$ returns an 8-character string representing the current date (dd-mm-myy). 
DATES(0%) returns the current date in the form mm/dd/yy. 
DATES(x%) returns the date according to the formula; x = day of the year + (years since 
1970* 1000) in the form dd-mmm-yy. 
EDITS(string n%) converts a string according to integer specified in table. 
EXP(x) returns value of ex where 3=2.71828. 
FIX(x) returns truncated value of x. 
INSTR(z%,x$,v$) returns the position of substring y$ in main string x$ starting at position 2%. 
INT(x) returns the integral part of x. 
LEFTS(x3,y%) returns a substring of x$ beginning at the leftmost position for a total length of y 
characters. (Also LEFT(x$,y%)). 
LEN(x$) returns the number of characters in x$. 
LOG(x) returns the natural logarithm of x. 
LOG10(x) returns the common logarithm of x. 


MID(string,n1%,n2%) returns a substring of string starting at position n1% with n2% characters. 


-MOD(xy) = =~—~—~—___ returns the real result of x mod y, which is equal to x- y*INT(x/y).. 
MODZ(xy) ———__sfeturns the integer result of x mod y, which is the remainder of x/y. | 
PI constant value, 3.14159 
POS(x$,y$,z%) returns the position of substring y$ in main string x$ beginning of position z. 
(See also INSTR.) 
RAD3$(x%) converts the integer x% to its RADIX-50 equivalent. 
RIGHTS(x$,y%) returns a substring of x$ that ranges from the yth character to the end of the string. 


(Also, RIGHT(x$,y%)). 


RND returns a random number between O and 1. 


A-13 


Function 


SEG$(x$ ,V%,z%) 
SGN(x) 

SIN(x) 
SPACES(x) 
SQR(x) 
STRS(x) 


STRINGS(x%,y%) 
TAB(x%) 

TAN(x) 
TIMES(x%) 
TIMES(07%) 
TIME(0) 
TIME(1%) 
TIME(2%) 
VAL(x$) 
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Usage 


returns a substring of x$ that ranges from the yth character to the xth character. 
returns 1 if x is positive; 0 if x is zero;-1 if x is negative. 

returns the sine of x in radians. 

produces a string of x spaces. 

returns the square root of x; also SQRT(x). 


returns the value of an expression without the leading and trailing blanks. (Also 
NUMS$(x)). | 


creates a string of x length whose characters represent the ASCII value of y. 
moves the print head to the xth position. 

returns the tangent of x in radians. 

returns time as x minutes before midnight. 

returns current time. 

returns clock time in seconds since midnight. 

returns used CPU time in tenths of seconds. 

returns connect time in minutes. 


computes the numeric value of the numeric string x$;x$ must be acceptable numeric 
input. 


Table A-1 Arithmetic Operators 
























5-2 06 5t*2 exponentiation 
A*B multiplication 
A/B division 

A+B addition 

A-B subtraction, unary 


minus 
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Table A-2 Logical Operators 


logical negative of A 

logical product of A and B 
logical sum of A and B 

logical exclusive OR of A and B 
A is logically equivalent to B 
logical implication of A and B 





Table A-3 Relational Operators 


A is equal to B 
A is less than B 
A is greater than B 
= or =< A is less than or equal to B 
>= or => A is greater than or equal to B 


#or<>or>< A is not equal to B 
== == A is approximately equal to B 
+ & string concatenation 


Note that A is approximately equal to B (A==B) if the difference between A and B is less 
than 10°(-6). If A$ and BS are strings, the relation (==) is true if the contents of A$ and 
B$ are the same in length and composition. 





Table B-1 ASCII Table 















































ASCII 
Decimal 


Number | Character 


Null 
Start of heading 

Start of text 

End of text 

End of transmission 
Enquiry 
Acknowledgement 

Bell 

Backspace 

Horizontal tab 

Line feed 

Vertical tab 

Form feed 

Carriage return 

Shift out 

Shift in 

Data link escape 

Device control 1 

Device control 2 

Device control 3 

Device control 4 

Negative acknowledgement 
Synchronous idle 

End of transmission block 
Cancel 

End of medium 

Substitute 

Escape 

File separator 

Group separator 

Record separator 

Unit separator 

Space or blank 
Exclamation mark 
Quotation mark 

Number sign 

Dollar sign 

Percent sign 

Ampersand 
Apostrophe 
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ASCII 
Decimal 
Number 


OmoOTDMAHBWNK OO" 
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Character 
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Left parenthesis 
Right parenthesis 
Asterisk 

Plus sign 

Comma 

Minus sign or hyphen 
Period or decimal point 
Slash 

Zero 

One 

Two 

Three 

Four 

Five 

Six 

Seven 

Eight 

Nine 

Colon 

Semicolon 

Left angle bracket 
Equal sign 

Right angle bracket 
Question mark 

At sign 
Upper case A 
Upper case B 
Upper case C 
Upper case D 
Upper case E 
Upper case F 
Upper case G 
Upper case H 
Upper case I 
Upper case J 
Upper case K 
Upper case L 
Upper case M 
Upper case N 
Upper case O 









































ASCII 
Decimal 
Number 


Character 


P 
Q 
R 
S 

T 
U 
V 
W 
X 
Y 
Z 
[ 

\ 

, 


| 
O 
OF 


ASCII Code 


Table B-1 (Cont.) ASCII Table 


Meaning 


Upper case P 
Upper case Q 
Upper case R 
Upper case S 
Upper case T 
Upper case U 
Upper case V 


Upper case W 


Upper case X 
Upper case Y 
Upper case Z 


Left square bracket 


Back slash 


Right square bracket 
Circumflex or up arrow 
Back arrow or underscore 


Grave accent 
Lower case a 
Lower case b 
Lower case c 
Lower case d 
Lower case e 
Lower case f 
Lower case g 
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ASCII 
Decimal 
Number 


Character 


et ae ae ee 


Meaning 


Lower case h 
Lower case i 
Lower case j 
Lower case k 
Lower case | 
Lower case m 
Lower case n 
Lower case 0 
Lower case p 
Lower case q 
Lower case r 
Lower case s 
Lower case t 
Lower case u 
Lower case v 
Lower case w 
Lower case x 
Lower case y 
Lower case z 
Left brace 
Vertical line 
Right brace 
Tilde 

Delete 
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RESERVED WORDS 


Certain words in the BASIC-PLUS-2 language are reserved and, therefore, are not legal variable names. However, 
variations, i.e., IF$, AND%, DIM$, MAT%, are legal and proper variable names. Note that a space must follow all 
keywords. You may not recognize all the words in this list, since they are for both RSTS/E and the DECSYSTEM-20. 


ABORT 

ABS 

ACCESS 
ACCESS% 
ALIGNED 
ALL 

ALLOW 
ALTERNATE 
AND 
APPEND 

AS 

ASCII 

ATN 

ATN2 

BACK 

BEL 

BIN 

BINS 
BINARY 

BIT 
BLOCKSIZE 
BROADCAST 
BS 
BUCKETSIZE 
BUFFER 
BUFFERSIZE 
BUFSIZ 

BY 

CALL 

CCPOS 
CHAIN 
CHANGE 
CHANGES 
CHR 

CLK 

CLK$ 

CLOSE 
CLUSTERSIZE 
COM 
COMMON 
COMP% 


CON 
CONTIGUOUS 
COS 

COT 
COUNT 
CR 
CTRLC 
CVT$ 
CVT% 
DAT 
DAT$ 
DATA 
DATE 
DEF 
DEF* 
DEL 
DELETE 
DELIMIT 
DENSITY 
DET 

DIF$ 

DIM 
DIMENSION 
DOUBLEBUF 
DUPLICATES 
ECHO 
ELSE 
END 

EQ 

EQV 

ERL 
ERN$ 
ERR 
ERROR 
ESC 

EXP 
EXTEND 
FF 

FIELD 
FILE 
FILESIZE 
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FILL 
FILLS 
FILL% 
FIND 
FIX 
FIXED 
FNAME$ 
FNEND 
FNEXIT 
FOR 
FORCEIN 
FROM 
GE 

GET 

GO 
GOSUB 
GOTO 
GT 
HANGUP 
HT 

IDN 

IF 
IFEND 
IFMORE 
IMAGE 
IMP 
INDEXED 
INIMAGE 
INPUT 
INSTR 
INT 

INV 
INVALID 
KEY 
KILL 
LEFT 
LEFT$ 
LEN 

LET 

LF 

LINE 


LINO 
LINPUT 
LOCK 
LOCKED 
LOG 
LOG1O 
LSA 

LSET 
MAGTAPE 
MAP 

MAR 
MAR% 
MARGIN 
MAT 

MID 

MID$ 
MOD 
MOD% 
MODE 
MODIFY 
MOVE 
NAME 
NEXT 
NOCHANGES 
NODATA 
NODUPLICATES 
NOECHO 
NONE 
NOPAGE 
NOQUOTE 
NOREWIND 
NOSPAN 
NOTAPE 
NOT 

NUL 
NUL$ 
NUM 
NUM$ 
NUM1$ 
NUM2 
OCT 


OCTS 

ON 
ONECHR 
ONENDFILE 
ONERROR 
OPEN 

OR 
ORGANIZATION 
OUTPUT 
PAGE 

PI 

PLACES 

POS 

POS% 

PPS 
PRIMARY 
PRINT 
PROD$ 

PUT 

QUOTE 
RAD$ 
RANDOM 
RANDOMIZE 
RCTRLC 


Reserved Words 


RCTRLO 
READ 
RECORD 
RECORDSIZE 
RECOUNT 
REF$ 
RELATIVE 
REM 
RESET 
RESTORE 
RESUME 
RETURN 
RIGHT 
RIGHT$ 
RND 
SCRATCH 
SEG$ 
SEQUENTIAL 
SGN 

SI 

SIN 

SLEEP 

SO 

SP 
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SPACE$ 
SPAN 
SOR 
SQRT 
STATUS 
STEP 
STOP 
STR$ 
STREAM 
STRINGS 
SUB 
SUBEND 
SUBEXIT 
SUM$ 
SWAP% 
SYS 

TAB 
TAN 
TAPE — 


TERMINAL 


THEN 
TIM 
TIME 
TIME$ 


TO 

TRM$ 
TRN 
TYPES 
UNALIGNED 
UNLESS 
UNLOCK 
UNTIL 
UPDATE 
USAGE$ 
USING 
USRS 
VAL 
VARIABLE 
VIRTUAL 
VPS% 

VT 

WAIT 
WHILE 
WITH 
WRITE 
XLATE 
XOR 

ZER 


Alphanumeric 


Array 


ASCII Code 


BASIC 


Binary 


Block 


Buffer 


Buffer Pointer 


Call 
Caller 


Calling Sequence 


Character 


COMMON area 
Concatenation 
Constant 


Data 


APPENDIX D 
GLOSSARY 


The letters of the alphabet (A through Z) and the numerals (0 through 9). 


An arrangement of elements in one or more dimensions, i.e., an ordered arrangement 
of subscripted variables. 


American Standard Code for Information Interchange. A 7-bit code in which textual 
information is recorded. Characters in the code include upper- and lower-case letters, 
numbers, common punctuation marks, and special control characters. 

Beginner’s All-purpose Symbolic Instruction Code. A computer programming language 
that is used for direct communication between terminal units and computers. The 


language was developed at Dartmouth College. 


1. Pertaining to the number system with a radix of two. 
2. Pertaining to information in the form of a bit stream. 


A set of records, words, characters, or digits handled as a unit. 
A device or area used to temporarily hold information being transmitted between two 
processes, such as external and internal storage devices, or I/O devices and internal 


high-speed storage. 


A position indicator that is located between two characters in an editing buffer, before 
the first character in the buffer, or after the last character in the buffer. 


To transfer control to a specified subroutine. 
The program or routine which calls another program or routine. 


A specified arrangement of instructions, pointers, and data necessary to pass param- 
eters and control to, and return from, a given subroutine. 


One symbol of a set of elementary symbols such as those corresponding to the keys 
on a typewriter. The symbols usually include the decimal digits 0 through 9, letters A 


through Z, punctuation marks, operation symbols, and any other special symbols that 


a computer may read, store, or write. 
A section in a program’s address space that is set aside for shared use by many modules. 
The joining of two character strings to produce a longer string. 
A quantity that does not vary in value. 


A general term used to denote any or all information (facts, numbers, letters, and 
symbols that refer to or describe an object, idea, condition, or situation. 
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Disk 


E Notation 
Exponentiation 
Expression 

File 

Function 

I/O 

Input 

Input process 
Integer 


Jump 


Loop 


Magnetic Tape 


Main Program 


Nesting 


Offset 


Operand 


Operating System 


Output 


Parameter 
Pointer 


Program 


Glossary 


A form of mass storage device in which information is stored on rotating magnetic 
platters. 


A system for representing numbers in exponential format, see exponentiation. 

A mathematical operation whereby a number is increased by a specified factor. 
Any legal combination of data and operators. 

An ordered collection of characters containing computer instructions and/or data. 
An instruction that defines a computer operation. 

Abbreviation for input, output, or both. 

Information read by a computer. 

Transmitting data from a peripheral to internal storage. 

A whole number containing no fraction or decimal point. 


A departure from the normal sequence of executing instructions, i.e., a transfer of 
control to another section of the program. 


A sequence of instructions that is executed repeatedly until a terminal condition is 
satisfied. 


A tape with a magnetic surface on which data can be stored by polarizing selective 
portions of a surface. 


The main program exercises primary control over the operations performed and calls 
subroutines to perform specific functions. 


To include a loop, routine, or block of data within a larger loop, routine, or block of 
data. 


The number of locations, or bytes, relative to the base of an array, string, or block. 
For example, the number of locations relative to zero. 


The data that is accessed when an operation is executed. 


The collection of programs that administer the operation of the computing system by 
scheduling and controlling the operation of user and system programs. 


1. Data that has been transferred from memory to a medium readable by a person. 
2. Pertaining to a device, process, or channel involved in the output process. 


A variable that is given a constant value for a specific purpose or process. 
A location containing an address rather than data. 


The plan for the solution of a problem. (Sequence of machine instructions necessary 
to solve a problem.) 
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Random Access 


Record 


Routine 
Run 
Statement 
String 


Subscript 


Subscripted Variable 


Syntax 


Truncate 
Variable 
Vector 


Word 


Glossary 


A process having the characteristic such that the access time is effectively independent 
of the location of data. 


A collection of adjacent related items of data treated as a unit. i-25 Recursive A repeti- 
tive process in which the result of each process is dependent upon the result of the 
previous one. 

A set of instructions and data for performing one or more specific functions. 

To transfer a save file from a device into memory and begin program execution. 

An expression or instruction written in a source language. 


A set of contiguous items of similar type, a connected sequence of characters. 


A notation, enclosed in parentheses, written to the right of an array name, that repre- 
sents a specific item in that array. 


A variable name followed by one or more subscripts in parentheses. 


The rules governing statement structure in a computer language: the structure of a 
language. 


Dropping part of a number without rounding off. 
A symbol whose value can change during program execution. 
A horizontal or vertical list. Also, an array with only one dimension. 


An ordered set of bits that occupies one storage location and is treated by the com- 
puter as a unit. 
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ABS function, 7-3, 7-7, A-13 
Absolute value function, 7-3, 7-7 
ACCESS, 9-1, 9-10 

Access, 

random, D-3, 10-2, 10-13, 10-14 

sequential, 10-2, 10-12 

simultaneous, 10-16 
ACCESS APPEND, 10-6 
Access methods, 10-2 
ACCESS MODIFY, 10-6 
ACCESS READ, 10-6 
ACCESS WRITE, 10-6 
Accessing a record file, 10-5 
Actual arguments, 11-2 
Addition, 2-7 

matrix, 8-3 
Additional array element, 2-14 
Additional test, 

FOR statement with, 5-11 
Algebraic functions, 7-3 
ALIGNED, 10-3, 10-16 
ALLOW, 9-1, 9-10 
ALLOW MODIFY, 10-7 
ALLOW NONE, 9-2, 10-7 
ALLOW READ, 9-2, 10-7 
ALLOW WRITE, 10-7 
Alphanumeric, D-1 
ALTERNATE, 10-8 
Ampersand, 1-4 
AND, 2-10 
Approximate key match, 10-15 
Arctangent function, 7-2 
Area, 

COMMON, D-1 
Arguments, 

actual, 11-2 

dummy, 11-1, 11-2 
Arithmetic expressions, 2-7 
Arithmetic operators, 2-7, A-14 
Array, D-1 

dimensioning, 8-1 

initializing, 8-1 

virtual, 9-9 
Array element, 2-15 

additional, 2-14 

first, 2-14 
Array I/O, 8-4 
Arrays, 2-14 

assigning values to, 8-1 

storage space for, 2-14 
ASCII code, 1-1, B-1, D-1 
ASCII code conversion, 7-19 
ASCII function, 7-18, A-13 


INDEX 


ASCII table, B-1 
Assigning values to arrays, 8-1 
Assignment, 

matrix, 8-3 
Assignment statement, 2-12 
Asterisk, 4-10 
Asterisk fill in PRINT USING, 4-5 
ATN function, 7-2, A-13 


Backslash, 1-5 
BASIC, D-1 
Binary, D-1 
Block, D-1 
BLOCKSIZE, 10-7 
Branching, 5-1 
multiple, 5-2 
BUCKETSIZE, 10-7 
Buffer, D-1 
BUFFER, 10-7 
Buffer, 
moving from, 10-17 
moving to, 10-17 
Buffer pointer, D-1 
BY size, 5-10, 5-11 


C, 

upper-case, 4-8 
Call, D-1 
Call by reference, 11-2, 11-3 
Call by value, 11-2, 11-3 
CALL statement, A-1, 11-2 
Caller, D-1 
Calling sequence, D-1 
Can have modifier, 6-2 
Cannot have modifier, 6-2 
Carets, 4-10 
Centered fields, 4-8 
CHAIN statement, A-1, 11-4 
CHANGE statement, 7-20, 7-21, A-1 
CHANGES, 10-8 
Changing margins, 9-8 
Changing name of a file, 9-11 
Changing program execution, 5-] 
Character, D-1 

continuation, 1-4 
Character set, 1-1 
Checking, 

error, 5-17 
CHR$ function, 7-19, A-13 
Circumflexes, 4-10 
Clause, 

UNTIL, 5-11, 6-4 

WHILE, 5-11, 6-4 


CLK$ function, 7-22, A-13 
CLOSE statement, 9-3, A-1, 10-10 
Closing files, 5-14, 10-10 
Closing terminal-format files, 9-3 
Closing virtual array file, 9-11 
CLUSTERSIZE, 10-7 
Code, 

ASCII, 1-1, B-1, D-1 
Code conversion, 

ASCII, 7-19 
Column, 2-14 
COM statement, A-2 
Comma, 3-8, 4-9 
Commas in PRINT USING, 4-6 
Comment, 1-5 
Comment field, 1-5 
COMMON area, D-1 
Common logarithm function, 7-3, 7-4, 7-5 
COMMON statement, A-2, 11-5 
Compact format, 3-8 
Comparing strings, 2-8 
Computed GOTO, 5-2 
CON, 8-1 
Concatenation, D-1 
Conditional expression, 5-12 
Conditional FOR statement, 5-10 
Conditional loop, 5-10, 5-11 
Conditional transfer, 5-3 
Conditional transfer control, 5-16 
Constant, D-1 
Constants, 2-1 

integer, 2-1, 2-2 

numeric, 2-1 

string, 2-1, 2-2 
CONTIGUOUS, 10-7 
Continuation character, 1-4 
Continuation lines, 1-3 
Control, 

transfer, 5-16 
Control statements, 5-1 
Conversion, 

ASCII code, 7-19 
Conversion functions, 7-18 
Conversions, 

EDITS, 7-17 
Converting numbers to strings, 7-22 
Converting strings to numbers, 7-22 
COS function, A-13 
Creating a record file, 10-5 
Creating new terminal-format file, 9-1 


DAT$ function, 7-22, A-13 
Data, D-1 
excess, 3-2 
insufficient, 3-2 
supplying, 3-1 
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Data pointer, 

reset, 3-5 
DATA statement, 3-4, A-2 
Date and time functions, 7-22 
DATE$(0%) function, 7-22, A-13 
DATE$(n%) function, 7-22 
Decimal point, 4-9 
Decimal point in PRINT USING, 4-3 
DEF, 

single-line, 7-23 
DEF (multi-line) statement, A-2 
DEF (single-line) statement, A-2 
DEF statement, 7-23, 7-26 
DEF*, 

multi-line, 7-28 
DEF* (multi-line) statement, 7-28, A-2 
DELETE statement, A-3, 10-13, 10-14 
Deleting file from storage, 9-12 
DET function, 8-7 
Determinant of a matrix, 8-7 
DIM #statement, 9-9, A-3 
DIM statement, 2-15, A-3 
DIMENSION statement, A-3 
Dimensioning an array, 8-1 
Dimensioning virtual array, 9-9 
Disk, D-2 
Division, 2-7 
Dollar sign, 2-5, 4-10 
Double quotation marks, 2-2 
DOUBLEBUF, 10-7 
Dummy arguments, 11-1, 11-2 
DUPLICATES, 10-8 
Dynamic mapping, 10-16 


E, 
upper-case, 4-9 
E format in PRINT USING, 4-6 
E notation, 2-2, D-2 
EDITS conversions, 7-17 
EDITS function, 7-17, A-13 
Element, 
additional array, 2-14 
array, 2-15 
first array, 2-14 
Embedded spaces, 1-2 
End of terminal-format file, 
testing, 9-7 
END statement, 5-13, 5-14, A-3 
EQV, 2-10 
ERL, 5-18 
ERN$, 5-18 
ERR, 5-18 
ERR numbers, 5-19 
Error checking, 5-17 
Error table, 5-18, 5-19 
Error-handling routine, 5-17 
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Evaluating expressions, 2-11 
Exact key match, 10-15 
Excess data, 3-2 
Exclamation point, 1-5, 4-10 
Exiting from a subprogram, 11-1 
EXP function, 7-3, 7-4, A-13 
Exponential function, 7-3, 7-4 
Exponentiation, 2-7, D-2 
Expression, D-2 

conditional, 5-12 

logical, 5-12 

relational, 5-12 
Expressions, 2-7 

arithmetic, 2-7 

evaluating, 2-11 

integer, 2-7 

logical, 2-10 

numeric, 2-7 

relational, 2-8 

string, 2-7, 2-8 
Extended fields, 4-9 
Extracting a segment from a string, 7-13 


Field, 
comment, 1-5 
Fields, 
centered, 4-8 
extended, 4-9 
File, D-2 
changing name of, 9-11 
indexed, 10-2 
reading a terminal-format, 9-4 
relative, 10-1 
restoring, 10-11 
sequential, 10-1 
testing end of terminal-format, 9-7 
virtual array, 9-9 
File operations, 10-5 
File organization, 10-1 
Files, 9-1 
closing, 5-14, 10-10 
closing terminal-format, 9-3 
opening virtual array, 9-10 
record, 10-1 
terminal-format, 9-1 
FILL, 10-3 
FIND statement, A-3, 10-12, 10-13, 10-14 
Finding the length of a string, 7-11 
Finding the position of a substring, 7-12 
First array element, 2-14 
Fix function, 7-3, 7-8 
FIX function, 7-3, 7-8, A-13 
FIXED, 10-6 
Fixed length, 10-2 
Floating dollar sign—PRINT USING, 4-6 
Floating point notation, 2-2 
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Floating point numbers, 2-1 
FNEND statement, 7-27, A-3 
FNEXIT statement, 7-27, A4 
FOR (conditional) statement, A-4 
FOR INPUT, 9-1, 9-10, 10-6 
FOR modifier, 6-1, 6-4 
FOR OUTPUT, 9-1, 9-10, 10-6 
FOR statement, 5-5, 5-6, A-4 
FOR statement, 

conditional, 5-10 
FOR statement with additional test, 5-11 
Format, 

compact, 3-8 

left-justified, 4-7 

line, 1-2 

output, 3-10 

record, 10-2 

right-justified, 4-8 
Format character for numeric fields, 4-9 
Format characters for string fields, 4-10 
Format string, 4-2 
Function, D-2 

ABS, 7-3, 7-7, A-13 

ASCII, 7-18, A-13 

ATN, 7-2, A-13 

CHR$, 7-19, A-13 

CLK$, 7-22, A-13 

COS, A-13 

DAT$, 7-22, A-13 

DATE$(0%), 7-22, A-13 

DATE$(n%), 7-22 

DET, 8-7 

EDIT$, 7-17, A-13 

EXP, 7-3, 7-4, A-13 

FIX, 7-3, 7-8, A-13 

INSTR, 7-12, A-13 

INT, 7-3, 7-5, A-13 

INV, 8-7 

LEFT$, 7-15, A-13 

LEN, 7-11, A-13 

LOG, 7-3, 7-4, A-13 

LOG1O, 7-3, 7-4, 7-5, A-13 

MID, 7-14, A-13 

mod, 7-10 

MOD, 7-10, A-13 

MOD%, A-13 

PI, 7-2, A-13 

POS, 7-12, A-13 

RAD, 7-20, A-13 

RIGHT$, 7-15, 7-16, A-13 

RND, 7-9, A-13 

SEG$, 7-13, A-14 

SGN, 7-3, 7-8, A-14 

sien, 7-8 

SIN, A-14 

SPACE$, 7-16, A-14 


Function (Cont.), 
SQR, 7-3, 7-4, A-14 
square root, 7-4 
STR$, 7-22, A-14 
STRINGS, 7-16, A-14 
TAB, 3-11, A-14 
TAN, 7-2, A-14 
TIME, A-14 
TIME$, A-14 
TIME$(0%), 7-23 
TIMES$(n%), 7-23 
TIME(0), 7-23 
TIME(1%), 7-23 
TIME(2%), 7-23 
TRM$, 7-11 
TRN, 8-6, 8-7 
VAL, 7-21, A-14 

Functions, 2-11, 7-1 

Functions, 
algebraic, 7-3 
conversion, 7-18 
MAT, 8-6 
multi-line, 7-26 
numeric, 7-1 
string, 7-11 
user-defined, 7-23 


GET statement, A-4, 10-12, 10-13, 10-14 
Glossary, D-1 
GOSUB statement, 5-15, 5-16, A-4 
GOTO, 

computed, 5-2 
GOTO statement, 5-1, A-4 


Halting program execution, 5-13, 5-14 


I/O, D-2 
Identity matrix, 8-2 
IDN, 8-2 
IF modifier, 6-1, 6-2 
IF statement, A-5S 

modifiers, 6-2 
IF-THEN-ELSE statement, 5-3 
IFEND # statement, 9-7, A-5 
IFMORE # statement, 9-7, A-5 
IMAGE statement, 4-2, 4-11, A-5 
IMP, 2-10 
Implied loops, 6-1 
Index, 

loop, 5-6 
Index variable, 5-6, 5-7, 5-10, 5-12 
INDEXED, 10-6 
Indexed file, 10-2 
INDEXED OPEN, 

syntax for, 10-10 
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Indexed organization, 10-2 
Indexed record operations, 10-14 
Initializing an array, 8-1 
Inner loops, 5-9 
Input, D-2 
INPUT # statement, 9-4, A-6 
INPUT LINE #statement, 9-5 
INPUT LINE statement, 3-3, A-6 
Input process, D-2 
INPUT statement, 3-1, A-5 
INSTR function, 7-12, A-13 
Insufficient data, 3-2 
INT function, 7-3, 7-5, A-13 
Integer, D-2 
Integer constants, 2-1, 2-2 
Integer expressions, 2-7 
Integer function, 7-3, 7-5 
Integer variables, 2-4, 2-5 
Interval, 

open, 7-9 
INV function, 8-7 
INVALID, 9-1, 9-10, 10-7 
Inversion, 

matrix, 8-3 
Inverting a matrix, 8-7 


Jump, D-2 


Key match, 
approximate, 10-15 
exact, 10-15 

Keys, 10-8 

Keywords, C-1 

KILL statement, 9-12, A-6 


L, 
upper-case, 4-7 
Leading spaces, 2-3 
LEFT$ function, 7-15, A-13 
Left-justified format, 4-7 
LEN function, 7-11, A-13 
Length, 
fixed, 10-2 
variable, 10-2 
Length function, 7-11 
Length of a string, finding the, 7-11 
LET statement, 2-12, A-6 
Letters, 
lower-case, 2-3 
Line format, 1-2 
Line numbers, 1-2 
Lines, 
continuation, 1-3 
multi-statement, 1-3, 1-4 
single statement, 1-3 
LINPUT # statement, 9-5 


LINPUT statement, 3-3, A-6 
List, 2-15 
Lists, 2-14 
LOCKED, 9-1, 9-10, 10-7 
Locked status, 10-16 
Locking, 

record, 10-16 
LOG function, 7-3, 7-4, A-13 
LOG10 function, 7-3, 7-4, 7-5, A-13 
Logarithm function, 7-3, 7-4 
Logarithm function, 

common, 7-3, 7-4, 7-5 
Logical expression, 2-10, 5-12 
Logical operators, 2-7, 2-10, A-15 
Loop, D-2 

conditional, 5-10, 5-11 
Loop index, 5-6 
Loop variable, 5-12 
Loops, 5-5 

implied, 6-1 

inner, 5-9 

nested, 5-8 

outer, 5-9 
Lower-case letters, 2-3 


Magnetic tape, D-2 
Main program, D-2 
MAP mapname, 10-7 
MAP statement, A-7, 10-3 
MAP statement, 

rules for, 10-4 
Mapping, 

dynamic, 10-16 
MARGIN statement, 9-8, A-7 
Margins, 

changing, 9-8 
MAT functions, 8-6 
MAT INPUT statement, 8-4, A-7 
MAT PRINT statement, 8-4, 8-5, A-7 
MAT READ statement, 8-4, 8-5, A-7 
MAT statement, 8-1, 8-3 
Match, 

approximate key, 10-15 

exact key, 10-15 
Matrix, 2-15 
Matrix addition, 8-3 
Matrix assignment, 8-3 
Matrix inversion, 8-3 
Matrix multiplication, 8-3 
Matrix operations, 8-3 
Matrix subtraction, 8-3 
Matrix transposition, 8-3 
Maximum subscripts, 2-15 
MID function, 7-14, A-13 
Minus, 

unary, 2-7 
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Minus sign, 4-10 
Mod function, 7-10 
MOD function, 7-10, A-13 
MOD% function, A-13 
Modifier, 

FOR, 6-1, 6-4 

IF, 6-1, 6-2 

more than one, 6-6 

UNLESS, 6-1, 6-2 

UNTIL, 6-1, 6-4 

WHILE, 6-1, 6-3 
Modifiers, 6-1 

nesting, 6-6 
Modifiers and the IF statement, 6-2 
Modulo, 7-10 
More than one modifier, 6-6 
MOVE statement, A-7, 10-16, 10-17 
Moving from a buffer, 10-17 
Moving to a buffer, 10-17 
Multi-line DEF, A-2 
Multi-line DEF*, 7-28 
Multi-line functions, 7-26 
Multi-statement lines, 1-3, 1-4 
Multiple branching, 5-2 
Multiplication, 2-7 

matrix, 8-3 


Name of a file, 
changing, 9-11 
NAME-AS statement, 9-11, A-7 
Negation of a logical condition, 6-3 
Nested loops, 5-8 
Nesting, D-2 
Nesting modifiers, 6-6 
NEXT statement, 5-5, 5-6, A-8 
NOCHANGES, 10-8 
NODATA statement, 9-7, A-8 
NOREWIND, 10-7 
NOSPAN, 10-7 
NOT, 2-10 
Notation, 
E, 2-2, D-2 
floating point, 2-2 
scientific, 2-2 
Notations, 
number, 2-2 
NUL$, 8-2 
Number generation, 
pseudorandom, 7-9 
Number notations, 2-2 
Number sign, 4-2, 4-9 
Numbers, 
converting strings to, 7-22 
floating point, 2-1 
line, 1-2 
printing, 3-10 


Numbers (Cont.), 

random, 7-9 

real, 2-1 
Numeric constants, 2-1 
Numeric expressions, 2-7 
Numeric fields, 

format character for, 4-9 
Numeric functions, 7-1 
Numeric variables, 2-4 


Offset, D-2 
ON-GOSUB statement, 5-16, A-8 
ON-GOTO statement, 5-2, A-8 
ON-THEN statement, 5-2, A-8 
One-character string, 4-7 
ONERROR GO BACK, 5-18 
ONERROR GOTO statement, 5-17, A-8 
OPEN, 
syntax for INDEXED, 10-10 
syntax for RELATIVE, 10-9 
syntax for SEQUENTIAL, 10-8 
syntax of terminal-format, 9-1 
OPEN for record file, 
syntax of, 10-5 
OPEN for virtual arrays, 
syntax of, 9-10 
Open interval, 7-9 
Open range, 7-9 
OPEN statement, 9-1, 9-3, 9-10, A-8, 10-5 
Opening existing terminal-format file, 9-1 
Opening virtual array files, 9-10 
Operand, D-2 
Operating system, D-2 
Operations, 
matrix, 8-3 
Operator precedence, 2-12 
Operators, 
arithmetic, 2-7, A-14 
logical, 2-7, 2-10, A-15 
relational, 2-7, 2-8, A-15 
string, 2-7 
string relational, 2-9 
OR, 2-10 
ORGANIZATION, 9-10, 10-6 
Organization, 
indexed, 10-2 
relative, 10-1 
sequential, 10-1 
Outer loops, 5-9 
Output, D-2 
Output format, 3-10 


Page size, 
setting, 9-8 
PAGE statement, 9-8, A-9 
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Parameter, D-2 
Per cent in PRINT USING, 44 
Per cent sign, 2-5 
PI, 7-2 
PI function, 7-2, A-13 
Plus, 

unary, 2-7 
Pointer, D-2 
POS function, 7-12, A-13 
Position function, 7-12 
Position of a substring, 

finding the, 7-12 
Precedence, 

operator, 2-12 
Preserving variables, 11-5 
PRIMARY, 10-8 
PRINT # statement, 9-5 
PRINT statement, 3-6, A-9 
PRINT USING, 

asterisk fill, 4-5 

commas, 4-6 

decimal point, 4-3 

E format, 4-6 

per cent, 4-4 

standard fields, 4-5 

strings, 4-7 

trailing minus, 4-5 
PRINT USING statement, 4-1, A-10 
Print zones, 

skipping, 3-8 
Printing numbers, 3-10 
Printing strings, 3-10 
Printing zones, 3-8 
Program, D-2 
Program execution, 

changing, 5-1 
Program segments, 11-1 
Pseudorandom number generation, 7-9 
PUT statement, A-10, 10-12, 10-13, 10-14 


Question mark, 3-1 

Quotation mark, 3-10 
single, 2-2, 4-7, 4-10 

Quotation marks, 
double, 2-2 


R, 
upper-case, 4-8 
RAD function, 7-20, A-13 
Radian measure, 7-2 
RADIX-50, 7-20 
Random access, D-3, 10-2, 10-13, 10-14 
Random numbers, 7-9 
RANDOM statement, A-10 
RANDOMIZE statement, 7-9, 7-10, A-10 
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Range, 

open, 7-9 
READ statement, 3-4, A-10 
Reading a terminal-format file, 9-4 
Reading files, 10-12 
Real numbers, 2-1 
Record, D-3 
Record file, 

accessing, 10-5 

creating, 10-5 

syntax of OPEN for, 10-5 
Record files, 10-1 
Record format, 10-2 
Record locking, 10-16 
Record mapping, 10-3 
Record operations, 10-11 

indexed, 10-14 

relative, 10-12 

sequential, 10-12 
RECORDSIZE, 10-7 
Relational expression, 5-12 
Relational expressions, 2-8 
Relational operators, 2-7, 2-8, A-15 
Relational operators, 

string, 2-9 
RELATIVE, 10-6 
Relative file, 10-1 
RELATIVE OPEN, 

syntax for, 10-9 
Relative organization, 10-1 
Relative record operations, 10-12 
REM statement, 1-5, A-10 
Reserved words, C-1 
Reset data pointer, 3-5 
RESET statement, 3-4, A-11 
RESTORE # statement, 9-6, 10-11 
RESTORE statement, 3-4, 3-5, A-10 
Restoring a file, 10-11 
Restoring a terminal-format, 9-6 
RESUME statement, 5-18, A-11 
RETURN statement, 5-15, 5-16, A-11 
RIGHTS function, 7-15, 7-16, A-13 
Right-justified format, 4-8 
RND function, 7-9, A-13 
Rounding to the nearest integer, 7-5 
Routine, D-3 
Row, 2-14 
Rules for MAP statement, 10-4 


Scientific notation, 2-2 
SCRATCH statement, A-11, 10-9, 10-11 
SEG$ function, 7-13, A-14 
Segment from a string, 
extracting a, 7-13 
Segment function, 7-13 


INDEX (Cont.) 


Index-7 


Semicolon, 3-8 
Separators, 3-8 
Sequence, 
calling, D-1 
SEQUENTIAL, 10-6 
Sequential access, 10-2, 10-12 
Sequential file, 10-1 
SEQUENTIAL OPEN, 
syntax for, 10-8 
Sequential organization, 10-1 
Sequential record operations, 10-12 
Set, 
character, 1-1 
Setting page size, 9-8 
SGN function, 7-3, 7-8, A-14 
Sign, 
dollar, 2-5 
per cent, 2-5 
Sign function, 7-3, 7-8 
Simultaneous access, 10-16 
SIN function, A-14 
Single quotation mark, 2-2, 4-7, 4-10 
Single statement lines, 1-3 
Single-line DEF, 7-23, A-2 
Skipping print zones, 3-8 
SLEEP state, 5-12 
SLEEP statement, 5-12, A-11 
Space for arrays, 
storage, 2-14 
SPACES function, 7-16, A-14 
Spaces, 
embedded, 1-2 
leading, 2-3 
trailing, 2-3 
SPAN, 10-7 
SQR function, 7-3, 7-4, A-14 
Square root function, 7-3, 7-4 
Standard fields in PRINT USING, 4-5 
Statement, D-3 
assignment, 2-12 
CALL, A-1, 11-2 
CHAIN, A-1, 11-4 
CHANGE, 7-20, 7-21, A-l 
CLOSE, 9-3, A-1, 10-10 
COM, A-2 
COMMON, A-2, 11-5 
conditional FOR, 5-10 
DATA, 3-4, A-2 
DEF, 7-23, 7-26 
DEF (multi-line), A-2 
DEF (single-line), A-2 
DEF* (multi-line), 7-28, A-2 
DELETE, A-3, 10-13, 10-14 
DIM, 2-15, A-3 
DIM #, 9-9, A-3 


Statement (cont.), 
DIMENSION, A-3 
END, 5-13, 5-14, A-3 
FIND, A-3, 10-12, 10-13, 10-14 
FNEND, 7-27, A-3 
FNEXIT, 7-27, A-4 
FOR, 5-5, 5-6, A-4 
FOR (conditional), A-4 
GET, A-4, 10-12, 10-13, 10-14 
GOSUB, 5-15, 5-16, A-4 
GOTO, 5-1, A-4 
IF, A-5 
IF-THEN-ELSE, 5-3 
IFEND, A-5 — 
IFEND #, 9-7 
IFMORE, A-5 
IFMORE #4, 9-7 
IMAGE, 4-2, 4-11, A-5 
INPUT, 3-1, A-5 
INPUT #, 9-4, A-6 
INPUT LINE, 3-3, A-6 
INPUT LINE #, 9-5 
KILL, 9-12, A-6 
LET, 2-12, A-6 
LINPUT, 3-3, A-6 
LINPUT #, 9-5 
MAP, A-7, 10-3 
MARGIN, 9-8, A-7 
MAT, 8-1, 8-3 
MAT INPUT, 8-4, A-7 
MAT PRINT, 8-4, 8-5, A-7 
MAT READ, 8-4, 8-5, A-7 
MOVE, A-7, 10-16, 10-17 
NAME-AS, 9-11, A-7 
NEXT, 5-5, 5-6, A-8 
NODATA, 9-7, A-8 
ON-GOSUB, 5-16, A-8 
ON-GOTO, 5-2, A-8 
ON-THEN, 5-2, A-8 
ONERROR GOTO, 5-17, A-8 
OPEN, 9-1, 9-3, 9-10, A-8, 10-5 
PAGE, 9-8, A-9 
PRINT, 3-6, A-9 
PRINT #, 9-5 
PRINT USING, 4-1, A-10 
PUT, A-10, 10-12, 10-13, 10-14 
RANDOM, A-10 
RANDOMIZE, 7-9, 7-10, A-10 
READ, 3-4, A-10 
REM, 1-5, A-10 
RESET, 3-4, A-11 
RESTORE, 3-4, 3-5, A-10 
RESTORE #, 9-6, 10-11 
RESUME, 5-18, A-11 
RETURN, 5-15, 5-16, A-11 
SCRATCH, A-11, 10-9, 10-11 


INDEX (Cont.) 


Index-8 


Statement (Cont.), 
SLEEP, 5-12, A-11 
STOP, 5-13, 5-14, A-11 
SUB, A-11, 11-1 
SUBEND, A-11, 11-1 
SUBEXIT, A-12, 11-1 
UNTIL, 5-12, A-12 
UPDATE, A-12, 10-12, 10-13, 10-14 
WAIT, 5-13, A-12 
WHILE, 5-12, A-12 
Statements, 1-3 
control, 5-1 
STEP size, 5-6, 5-10, 6-4 
STOP statement, 5-13, 5-14, A-11 
Storage, 
deleting file from, 9-12 
Storage space for arrays, 2-14 
STR$ function, 7-22, A-14 
Stream, 10-2 
STREAM, 10-6 
String, D-3 
extracting a segment from, 7-13 
format, 4-2 
one-character, 4-7 
String constants, 2-1, 2-2 
String expressions, 2-7, 2-8 
String fields, 
format characters for, 4-10 
String functions, 7-11 
String operators, 2-7 
String relational operators, 2-9 
String variables, 2-5 
STRINGS function, 7-16, A-14 
Strings, 
comparing, 2-8 
converting numbers to, 7-22 
printing, 3-10 
Strings in PRINT USING, 4-7 
SUB statement, A-11, 11-1 
SUBEND statement, A-11, 11-1 
SUBEXIT statement, A-12, 11-1 
Subprogram, 
exiting from, 11-1 
Subprograms, 11-1 
Subroutines, 5-15, 5-16 
Subscript, D-3 
Subscripted variables, 2-6, D-3 
Subscripts, 
maximum, 2-15 
Subtraction, 
matrix, 8-3 
Supplying data, 3-1 
Syntax, D-3 
INDEXED OPEN, 10-10 
record file OPEN, 10-5 
RELATIVE OPEN, 10-9 


Syntax (Cont.), 
SEQUENTIAL OPEN, 10-8 
terminal-format OPEN, 9-1 
virtual array OPEN, 9-10 


TAB function, 3-11, A-14 
Table, 2-15 
ASCII, B-1 
Tables, 2-14 
truth, 2-11 
Tabs, 2-3 
TAN function, 7-2, A-14 
Tangent function, 7-2 
Terminal format, 
restoring, 9-6 
Terminal-format file, 
creating new, 9-1 
opening existing, 9-1 
reading, 9-4 
testing end of, 9-7 
Terminal-format files, 9-] 
closing, 9-3 
Terminal-format OPEN, 
syntax of, 9-1 
Termination test, 5-10, 5-11 
Test, 
termination, 5-11 
Testing end of terminal-format file, 9-7 
TIME function, A-14 
Time functions, 
date and, 7-22 
Time limits, 5-12 
TIMES function, A-14 
TIME$(0%) function, 7-23 
TIME$(n%) function, 7-23 
TIME(0) function, 7-23 
TIME(1%) function, 7-23 
TIME(2%) function, 7-23 
Trailing blanks, 
trimming, 7-11] 
Trailing minus in PRINT USING, 4-5 
Trailing spaces, 2-3 
Transfer, 
conditional, 5-3 
unconditional, 5-1 
Transfer control, 5-16 
conditional, 5-16 
Transposing dimensions, 8-7 
Transposition, 
matrix, 8-3 
Trim function, 7-11 
Trimming trailing blanks, 7-11 
TRM$ function, 7-11 
TRN function, 8-6, 8-7 
Truncate, D-3 
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Truncating a file, 10-11 
Truth tables, 2-11 


UNALIGNED, 10-3, 10-16 
Unary minus, 2-7 

Unary plus, 2-7 
Unconditional transfer, 5-1 
UNLESS modifier, 6-1, 6-2 
UNTIL clause, 5-11, 64 
UNTIL modifier, 6-1, 6-4 
UNTIL statement, 5-12, A-12 
UPDATE statement, A-12, 10-12, 10-13, 10-14 
Upper-case C, 4-8 

Upper-case E, 4-9 

Upper-case L, 4-7 

Upper-case R, 4-8 
User-defined functions, 7-23 


VAL function, 7-21, A-14 
Variable, D-3 
VARIABLE, 10-6 
Variable length, 10-2 
Variables, 2-3 
integer, 2-4, 2-5 
numeric, 2-4 
preserving, 11-5 
string, 2-5 
subscripted, 2-6, D-3 
Vector, D-3 
VIRTUAL, 9-10 
Virtual array, 9-9 
dimensioning, 9-9 
Virtual array file, 9-9 
closing, 9-11 
Virtual array files, 
opening, 9-10 
Virtual arrays, 
syntax of OPEN for, 9-10 


Wait for input, 5-13 
WAIT statement, 5-13, A-12 
WHILE clause, 5-11, 6-4 
WHILE modifier, 6-1, 6-3 
WHILE statement, 5-12, A-12 
Word, D-3 
Words, 

reserved, C-1 
Writing files, 10-12 


XOR, 2-10 
ZER, 8-1 


Zones, 
printing, 3-8 
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